home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / editshadow.s < prev    next >
Text File  |  1997-11-28  |  46KB  |  3,155 lines
  1.  
  2. * the 'Hello World' program in 68000 Assembler
  3. * the C version can be found in the Intuition manual
  4.  
  5. * this source code (C) HiSoft 1992 All Rights Reserved
  6.  
  7. * for Devpac Amiga Version 2 the following symbols were changed
  8. * to avoid clashes with the new include files:
  9. * Screen->MyScreen, NewScreen->MyNewScreen
  10. * Window->MyWindow, NewWindow->MyNewWindow
  11.  
  12.     opt    c+,d+
  13.  
  14.     include    workbench:utilities/devpac/system            use pre-assembled header
  15.     include    exec/exec_lib.i
  16.     include    intuition/intuition.i
  17.     include    intuition/intuition_lib.i
  18.     include    graphics/graphics_lib.i
  19.     include    graphics/text.i
  20.  
  21. INTUITION_REV    equ    31        v1.1
  22. GRAPHICS_REV    equ    31        v1.1
  23.  
  24. * Open the intuition library
  25.  
  26.     moveq    #100,d4            default error return code
  27.  
  28.     moveq    #INTUITION_REV,d0    version
  29.     lea    int_name(pc),a1
  30.     CALLEXEC OpenLibrary
  31.     tst.l    d0
  32.     beq    exit_false        if failed then quit
  33.     move.l    d0,_IntuitionBase    else save the pointer
  34.  
  35.     moveq    #GRAPHICS_REV,d0
  36.     lea    graf_name(pc),a1
  37.     CALLEXEC OpenLibrary
  38.     tst.l    d0
  39. ;    beq    exit_closeint        if failed then close Int, exit
  40.     move.l    d0,_GfxBase
  41.     lea    MyNewScreen(pc),a0
  42.     CALLINT    OpenScreen        open a screen
  43.     tst.l    d0
  44. ;    beq    exit_closeall        if failed the close both, exit
  45.     move.l    d0,MyScreen
  46.  
  47.     move.l MyScreen,a0
  48.     lea sc_BitMap(a0),a0
  49.     lea bm_Planes(a0),a0
  50.     move.l #RAWSCRN,(a0)
  51.     move.l #RAWSCRN+10240,4(a0)
  52.     move.l #RAWSCRN+10240*2,8(a0)
  53.     move.l #RAWSCRN+10240*3,12(a0)
  54.     move.l #RAWSCRN+10240*4,16(a0)
  55.     move.l #RAWSCRN+10240*5,20(a0)
  56.     move.l #RAWSCRN+10240*6,24(a0)
  57.     move.l #RAWSCRN+10240*7,28(a0)
  58.  
  59. * now initialise a NewWindow structure. This is normally easier to
  60. * do with dc.w/dc.l statement etc, but for comparison with the C
  61. * version we do it like this
  62.     lea    MyNewWindow(pc),a0    good place to start
  63.     move.w    #20,nw_LeftEdge(a0)
  64.     move.w    #20,nw_TopEdge(a0)
  65.     move.w    #300,nw_Width(a0)
  66.     move.w    #100,nw_Height(a0)
  67.     move.b    #0,nw_DetailPen(a0)
  68.     move.b    #1,nw_BlockPen(a0)
  69.     move.l    #window_title,nw_Title(a0)
  70. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  71.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  72.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  73.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  74.     clr.l    nw_FirstGadget(a0)
  75.     clr.l    nw_CheckMark(a0)
  76.     move.l    MyScreen(pc),nw_Screen(a0)
  77.     clr.l    nw_BitMap(a0)
  78.     move.w    #100,nw_MinWidth(a0)
  79.     move.w    #25,nw_MinHeight(a0)
  80.     move.w    #640,nw_MaxWidth(a0)
  81.     move.w    #200,nw_MaxHeight(a0)
  82.  
  83. * thats it set up, now open the window (a0=NewWindow already)
  84. ;    CALLINT    OpenWindow
  85. ;    tst.l    d0
  86. ;    beq    exit_closescr            if failed
  87. ;    move.l    d0,MyWindow            save it
  88. ;
  89. ;    move.l    d0,a1                window
  90. ;    move.l    wd_RPort(a1),a1            rastport
  91. ;    moveq    #20,d0                X
  92. ;    moveq    #20,d1                Y
  93. ;    CALLGRAF Move                move the cursor
  94. ;
  95. ;    move.l    MyWindow(pc),a0
  96. ;    move.l    wd_RPort(a0),a1            rastport
  97. ;    lea    hello_message(pc),a0
  98. ;    moveq    #11,d0
  99. ;    CALLGRAF Text                print something
  100. ;
  101. ;    move.l    MyWindow(pc),a0
  102. ;    move.l    wd_UserPort(a0),a0
  103. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  104. ;    moveq    #0,d0
  105. ;    bset    d1,d0                do a shift
  106. ;    CALLEXEC Wait
  107.  
  108. ;    moveq    #0,d4                return code
  109.  
  110. * various exit routines that do tidying up, given a return code in d4
  111.  
  112. ;    move.l    MyWindow(pc),a0
  113. ;    CALLINT CloseWindow
  114.  
  115. ;exit_closescr
  116. ;    move.l    MyScreen(pc),a0
  117. ;    CALLINT CloseScreen
  118.  
  119. ;exit_closeall
  120. ;    move.l    _GfxBase(pc),a1
  121. ;    CALLEXEC CloseLibrary
  122.  
  123. ;exit_closeint
  124. ;    move.l    _IntuitionBase(pc),a1
  125. ;    CALLEXEC CloseLibrary
  126.  
  127. ;done:
  128. ;    bra done
  129.  
  130.  move.l #PALETTEBIT,a0
  131.  move.l #COPIEDPAL+4,a1
  132.  move.w #255,d0
  133.  
  134. copydown:
  135.  move.b 1(a0),(a1)
  136.  move.b 3(a0),4(a1)
  137.  move.b 5(a0),8(a1)
  138.  add.w #6,a0
  139.  add.w #12,a1
  140.  dbra d0,copydown
  141.  
  142.  move.w #256,COPIEDPAL
  143.  move.w #0,COPIEDPAL+2
  144. LOOKFORME:
  145.  move.l MyScreen,a0
  146.  lea sc_ViewPort(a0),a0
  147.  move.l #COPIEDPAL,a1
  148.  move.l _GfxBase,a6
  149.  jsr -$372(a6)
  150.  
  151.  move.l MyScreen,a4
  152.  move.w sc_MouseX(a4),d0
  153.  move.w sc_MouseY(a4),d1
  154.  move.w d0,OLDXM
  155.  move.w d1,OLDYM
  156.     
  157.  
  158.  
  159.     
  160. loop:
  161.  
  162.  move.l #POLYGONDATA,a3
  163.  move.w (a3)+,SORTIT
  164.  move.l a3,START_OF_OBJECT
  165.     
  166.  move.w (a3)+,num_points
  167.  move.w (a3)+,d6
  168.  move.w d6,num_frames
  169.  move.l a3,POINTER_TO_POINTERS
  170.  lea (a3,d6.w*4),a3
  171.  move.l a3,LinesPtr
  172.  moveq #0,d5
  173.  moveq #0,d2
  174.  
  175.  move.l POINTER_TO_POINTERS,a4
  176.  move.w (a4,d5.w*4),d2
  177.  add.l START_OF_OBJECT,d2
  178.  move.l d2,PtsPtr
  179.  move.w 2(a4,d5.w*4),d5
  180.  add.l START_OF_OBJECT,d5
  181.  move.l d5,PolyAngPtr
  182.  move.l d2,a3
  183.  move.w num_points,d5
  184.  
  185.  move.l (a3)+,OBJONOFF
  186.  
  187.  move.l a3,PointAngPtr
  188.  add.w d5,d5
  189.  move.w d5,d2
  190.  add.w d5,d5
  191.  add.w d5,d2
  192.  add.w d2,a3
  193.  move.l a3,PtsPtr
  194.  
  195.  move.l MyScreen,a4
  196.  move.w sc_MouseX(a4),d0
  197.  move.w sc_MouseY(a4),d1
  198.  
  199.  sub.w OLDXM,d0
  200.  sub.w OLDYM,d1
  201.  add.w d0,OLDXM
  202.  add.w d1,OLDYM
  203.  
  204.  btst #6,$bfe001
  205.  beq.s .SHIFTABOUT
  206.  
  207.  muls #8190,d0
  208.  divs #160,d0
  209.  add.w d0,YANG
  210.  and.w #8190,YANG
  211.  muls #8190,d1
  212.  divs #160,d1
  213.  and.w #8190,d1
  214.  add.w d1,XANG
  215.  and.w #8190,XANG
  216.  
  217. ; add.w #40,AANG
  218. ; add.w #70,BANG
  219. ; and.w #8191,AANG
  220. ; and.w #8191,BANG
  221.  
  222. ; add.w #60,CANG
  223. ; add.w #90,DANG
  224. ; and.w #8191,CANG
  225. ; and.w #8191,DANG
  226.  
  227.  
  228.  bra .ROTABOUT
  229. .SHIFTABOUT
  230.  
  231.   muls #8190,d0
  232.  divs #160,d0
  233.  add.w d0,BANG
  234.  and.w #8190,BANG
  235.  muls #8190,d1
  236.  divs #160,d1
  237.  and.w #8190,d1
  238.  add.w d1,AANG
  239.  and.w #8190,AANG
  240.  
  241.  
  242. .ROTABOUT
  243.  
  244.  move.w AANG,d1
  245.  move.w BANG,d3
  246. ; cmp.w #2,d6
  247. ; bne.s .notsecrot
  248. ; move.w CANG,d1
  249. ; move.w DANG,d3
  250. ;.notsecrot
  251.  move.l #SINETABLE,a1
  252.  move.w (a1,d1.w),XSIN    ;xsin
  253.  move.w (a1,d3.w),YSIN    ;ysin
  254.  
  255.  add.w #2048,a1
  256.  move.w (a1,d1.w),XCOS    ;xcos
  257.  move.w (a1,d3.w),YCOS    ;ycos
  258.  
  259.  move.w XANG,d1
  260.  move.w YANG,d3
  261. ; cmp.w #2,d6
  262. ; bne.s .notsecrot
  263. ; move.w CANG,d1
  264. ; move.w DANG,d3
  265. ;.notsecrot
  266.  move.l #SINETABLE,a1
  267.  move.w (a1,d1.w),XSIN2    ;xsin
  268.  move.w (a1,d3.w),YSIN2    ;ysin
  269.  
  270.  add.w #2048,a1
  271.  move.w (a1,d1.w),XCOS2    ;xcos
  272.  move.w (a1,d3.w),YCOS2    ;ycos
  273.  
  274.  
  275. ************************************************
  276. ************************************************
  277. ************************************************
  278. ************************************************
  279. ************************************************
  280. ************************************************
  281. ************************************************
  282. ************************************************
  283. ************************************************
  284. ************************************************
  285. ************************************************
  286. ************************************************
  287. ************************************************
  288. ************************************************
  289.  
  290. *SHADOW BUFFER CALCULATION
  291.  
  292.  
  293. ; First, calculate the normal brightnesses
  294. ; for points. NB: -1,-1,-1 = this point not used
  295. ; in gouraud shading.
  296.  
  297.  move.l #NORMBRIGHTS,a2
  298.  move.l PointAngPtr,a0
  299.  move.w num_points,d7
  300.  
  301.  move.l #NORMVECTS,a5
  302.  
  303.  subq #1,d7
  304.  
  305. CALCNORMBRIGHTS:
  306.  
  307.  move.w (a0)+,d0
  308.  move.w (a0)+,d1
  309.  move.w (a0)+,d2
  310.  
  311.  move.w #0,d6
  312.  
  313.  cmp.w #-1,d0
  314.  bne.s .notnot
  315.  cmp.w #-1,d1
  316.  bne.s .notnot
  317.  cmp.w #-1,d2
  318.  bne.s .notnot
  319.  
  320.  move.w #-1,x1
  321.  move.w #-1,y1
  322.  move.w #-1,z1
  323.  bra .dontbother
  324.  
  325. .notnot:
  326.  neg.w d1
  327.  
  328.  move.w d0,d3
  329.  move.w d2,d5
  330.  
  331.  muls YCOS,d0
  332.  muls YSIN,d2
  333.  sub.l d2,d0
  334.  add.l d0,d0
  335.  swap d0
  336. ; asr.l #6,d0    ; new x*512
  337.  
  338.  muls YSIN,d3
  339.  muls YCOS,d5
  340.  add.l d5,d3
  341.  add.l d3,d3
  342.  swap d3
  343.  move.w d3,d2    ; new z
  344.  
  345.  move.w d1,d4
  346.  move.w d2,d5
  347.  muls XCOS,d1
  348.  muls XSIN,d2
  349.  sub.l d2,d1
  350.  add.l d1,d1
  351.  swap d1
  352.  
  353.  muls XSIN,d4
  354.  muls XCOS,d5
  355.  add.l d5,d4
  356.  add.l d4,d4
  357.  swap d4
  358.  move.w d4,d2    ; new z
  359.  
  360.  
  361.  move.w d0,d3
  362.  move.w d2,d5
  363.  
  364.  muls YCOS2,d0
  365.  muls YSIN2,d2
  366.  sub.l d2,d0
  367.  add.l d0,d0
  368.  swap d0
  369.  
  370.  muls YSIN2,d3
  371.  muls YCOS2,d5
  372.  add.l d5,d3    
  373.  add.l d3,d3
  374.  swap d3
  375.  move.w d3,d2    ; new z
  376.  
  377.  move.w d1,d4
  378.  move.w d2,d5
  379.  muls XCOS2,d1
  380.  muls XSIN2,d2
  381.  sub.l d2,d1
  382.  add.l d1,d1
  383.  swap d1
  384.  
  385.  muls XSIN2,d4
  386.  muls XCOS2,d5
  387.  add.l d5,d4
  388.  add.l d4,d4
  389.  swap d4
  390.  
  391.  move.w d0,x1
  392.  move.w d1,y1
  393.  move.w d4,z1
  394.  
  395.  
  396.  move.w d1,d6    ; new y 
  397.  
  398.  asr.w #4,d6
  399.  add.w #20,d6
  400.  
  401.  ble.s .okokok
  402.  
  403.  moveq #0,d6
  404.  
  405. .okokok:
  406.  add.w #$1c,d6
  407.  bge.s .okokokok
  408.  moveq #0,d6
  409. .okokokok:
  410.  
  411.  add.w #32,d6
  412.  
  413. ; 
  414. ; cmp.w #28,d6
  415. ; blt.s .okbig
  416. ; move.w #28,d6
  417. ;.okbig
  418.  
  419. .dontbother:
  420.  move.w x1,(a5)+
  421.  move.w y1,(a5)+
  422.  move.w z1,(a5)+
  423.  move.w d6,(a2)+
  424.  
  425.  dbra d7,CALCNORMBRIGHTS
  426.  
  427.  
  428. ; Next, calculate the point coords for
  429. ; the shadow buffer.
  430.  
  431.  move.l #SHADOWPTS,a2
  432.  move.l PtsPtr,a0
  433.  move.w num_points,d7
  434.  subq #1,d7
  435.  
  436. ROTPTLOPSHAD:
  437.  move.w (a0)+,d0
  438.  move.w d0,d3
  439.  move.w (a0)+,d1
  440.  move.w (a0)+,d2
  441.  move.w d2,d5
  442.  
  443.  muls YCOS,d0
  444.  muls YSIN,d2
  445.  sub.l d2,d0
  446.  add.l d0,d0
  447.  swap d0
  448. ; asr.l #6,d0    ; new x*512
  449.  
  450.  muls YSIN,d3
  451.  muls YCOS,d5
  452.  add.l d5,d3
  453.  add.l d3,d3
  454.  swap d3
  455.  move.w d3,d2    ; new z
  456.  
  457.  move.w d1,d4
  458.  move.w d2,d5
  459.  muls XCOS,d1
  460.  muls XSIN,d2
  461.  sub.l d2,d1
  462.  add.l d1,d1
  463.  swap d1
  464.  
  465.  muls XSIN,d4
  466.  muls XCOS,d5
  467.  add.l d5,d4
  468.  add.l d4,d4
  469.  swap d4
  470.  move.w d4,d2    ; new z
  471.   
  472.  move.w d0,d3
  473.  move.w d2,d5
  474.  
  475.  muls YCOS2,d0
  476.  muls YSIN2,d2
  477.  sub.l d2,d0
  478.  asr.l #6,d0    ; new x*512
  479.  
  480.  muls YSIN2,d3
  481.  muls YCOS2,d5
  482.  add.l d5,d3
  483.  add.l d3,d3
  484.  swap d3
  485.  move.w d3,d2    ; new z
  486.  
  487.  move.w d1,d4
  488.  move.w d2,d5
  489.  muls XCOS2,d1
  490.  muls XSIN2,d2
  491.  sub.l d2,d1
  492.  asr.l #6,d1    ; new y*512
  493.  
  494.  muls XSIN2,d4
  495.  muls XCOS2,d5
  496.  add.l d5,d4
  497.  add.l d4,d4
  498.  swap d4
  499.  move.w d4,d2    ; new z
  500.  
  501.  ext.l d2
  502.  
  503.  move.w XOFF,d5
  504.  ext.l d5
  505.  asl.l #8,d5
  506.  add.l d5,d5
  507.  add.l d5,d0
  508.  
  509.  move.l d0,(a2)+
  510.  move.l d1,(a2)+
  511.  move.w d2,(a2)+
  512.  
  513.  dbra d7,ROTPTLOPSHAD
  514.  
  515.  
  516.  
  517. ***************************************
  518. * Calculate viewer position for specularity..
  519.  
  520.  move.w #0,d0
  521.  move.w #0,d1
  522.  move.w #-1024,d2
  523.  
  524. ; move.w d0,d3
  525. ; move.w d2,d5
  526. ;
  527. ; muls YCOS,d0
  528. ; muls YSIN,d2
  529. ; sub.l d2,d0
  530. ; add.l d0,d0
  531. ; swap d0
  532. ; asr.l #6,d0    ; new x*512
  533. ; 
  534. ; muls YSIN,d3
  535. ; muls YCOS,d5
  536. ; add.l d5,d3
  537. ; add.l d3,d3
  538. ; swap d3
  539. ; move.w d3,d2    ; new z
  540. ;
  541. ; move.w d1,d4
  542. ; move.w d2,d5
  543. ; muls XCOS,d1
  544. ; muls XSIN,d2
  545. ; sub.l d2,d1
  546. ; add.l d1,d1
  547. ; swap d1
  548. ; 
  549. ; muls XSIN,d4
  550. ; muls XCOS,d5
  551. ; add.l d5,d4
  552. ; add.l d4,d4
  553. ; swap d4
  554. ; move.w d4,d2    ; new z
  555.  
  556.  move.w d0,d3
  557.  move.w d2,d5
  558.  
  559.  muls YCOS2,d0
  560.  muls YSIN2,d2
  561.  sub.l d2,d0
  562.  add.l d0,d0
  563.  swap d0
  564.  
  565.  muls YSIN2,d3
  566.  muls YCOS2,d5
  567.  add.l d5,d3    
  568.  add.l d3,d3
  569.  swap d3
  570.  move.w d3,d2    ; new z
  571.  
  572.  move.w d1,d4
  573.  move.w d2,d5
  574.  muls XCOS2,d1
  575.  muls XSIN2,d2
  576.  sub.l d2,d1
  577.  add.l d1,d1
  578.  swap d1
  579. ; asr.l #6,d1    ; new y*512
  580.  
  581.  muls XSIN2,d4
  582.  muls XCOS2,d5
  583.  add.l d5,d4
  584.  add.l d4,d4
  585.  swap d4
  586.  
  587.  move.w d0,x2b
  588.  move.w d1,y2b
  589.  move.w d4,z2b
  590.  
  591. ; Now the specular highlight efforts....
  592.  
  593.  move.l #SPECBRIGHTS,a2
  594.  move.l #NORMVECTS,a1
  595.  
  596.  move.l #SHADOWPTS,a5
  597.  
  598.  move.w num_points,d7
  599.  subq #1,d7
  600.  
  601. CALCSPECBRIGHTS:
  602.  
  603.  move.w (a1)+,x1
  604.  move.w (a1)+,y1
  605.  move.w (a1)+,z1
  606.  
  607.  
  608.  move.w x2b,d0
  609.  move.l (a5)+,d1
  610.  asr.l #8,d1
  611.  asr.l #1,d1
  612.  sub.w d1,d0
  613.  move.w d0,x2
  614.  move.w y2b,d0
  615.  move.l (a5)+,d1
  616.  asr.l #8,d1
  617.  asr.l #1,d1
  618.  sub.w d1,d0
  619.  move.w d0,y2
  620.  move.w z2b,d0
  621.  sub.w (a5)+,d0
  622.  move.w d0,z2
  623.  
  624.  move.w #0,d6
  625.  
  626.  cmp.w #-1,x1
  627.  bne.s .notnot
  628.  cmp.w #-1,y1
  629.  bne.s .notnot
  630.  cmp.w #-1,z1
  631.  beq .dontbother
  632. .notnot: 
  633.  
  634.  
  635.  move.w x2,d2
  636.  muls d2,d2
  637.  move.w y2,d1
  638.  muls d1,d1
  639.  add.l d1,d2
  640.  move.w z2,d1
  641.  muls d1,d1
  642.  add.l d1,d2
  643.  
  644.  jsr CALCSQROOT
  645.  
  646.  move.w d2,l2
  647.  
  648.  move.w y1,d0
  649.  muls z2,d0
  650.  move.w y2,d1
  651.  muls z1,d1
  652.  sub.l d1,d0    ; x4
  653.  
  654. ; move.w z1,d1
  655. ; muls x2,d1
  656. ; move.w z2,d2
  657. ; muls x1,d2
  658. ; sub.l d2,d1    ; y4
  659.  
  660.  move.w x1,d2
  661.  muls y2,d2
  662.  move.w x2,d3
  663.  muls y1,d3
  664.  sub.l d3,d2    ; z4
  665.  
  666.  asr.l #8,d0
  667. ; asr.l #8,d1
  668.  asr.l #8,d2
  669.  asr.l #2,d0
  670. ; asr.l #2,d1
  671.  asr.l #2,d2
  672.  
  673. ; move.w x1,d3
  674. ; muls d1,d3
  675. ; move.w y1,d4
  676. ; muls d0,d4
  677. ; sub.l d4,d3
  678. ; asr.l #8,d3
  679. ; asr.l #1,d3
  680.  
  681. ; add.w z2,d3
  682.  
  683.  move.w z1,d3
  684.  muls d0,d3
  685.  move.w x1,d4
  686.  muls d2,d4
  687.  sub.l d4,d3
  688.  add.l d3,d3
  689.  
  690.  divs l2,d3
  691.  
  692. ; asr.l #8,d3
  693. ; asr.l #1,d3
  694.  
  695.  add.w y2,d3
  696.  
  697.  move.w d3,d6
  698.  
  699.  asr.w #4,d6
  700.  
  701.  add.w #30,d6
  702.  
  703.  ble.s .okokok
  704.  
  705.  moveq #0,d6
  706.  
  707. .okokok:
  708.  add.w #$1c,d6
  709.  bge.s .okokokok
  710.  moveq #0,d6
  711. .okokokok:
  712.  
  713.  muls d6,d6
  714.  asr.w #5,d6
  715.  
  716. ; 
  717. ; cmp.w #28,d6
  718. ; blt.s .okbig
  719. ; move.w #28,d6
  720. ;.okbig
  721.  
  722. .dontbother:
  723.  move.w d6,(a2)+
  724.  
  725.  dbra d7,CALCSPECBRIGHTS
  726.  
  727.  
  728.  
  729.  
  730. * NOW THE POINTS FOR ON-SCREENNESS
  731.  
  732.  move.l #ROTATEDPTS,a2
  733.  move.l PtsPtr,a0
  734.  move.w num_points,d7
  735.  subq #1,d7
  736.  
  737. ROTPTLOP:
  738.  
  739.  move.w (a0)+,d0
  740.  move.w d0,d3
  741.  move.w (a0)+,d1
  742.  move.w (a0)+,d2
  743.  move.w d2,d5
  744.  
  745.  
  746.  
  747.  muls YCOS,d0
  748.  muls YSIN,d2
  749.  sub.l d2,d0
  750.  asr.l #6,d0    ; new x*512
  751.  
  752.  muls YSIN,d3
  753.  muls YCOS,d5
  754.  add.l d5,d3
  755.  add.l d3,d3
  756.  swap d3
  757.  move.w d3,d2    ; new z
  758.  
  759.  move.w d1,d4
  760.  move.w d2,d5
  761.  muls XCOS,d1
  762.  muls XSIN,d2
  763.  sub.l d2,d1
  764.  asr.l #6,d1    ; new y*512
  765.  
  766.  muls XSIN,d4
  767.  muls XCOS,d5
  768.  add.l d5,d4
  769.  add.l d4,d4
  770.  swap d4
  771.  move.w d4,d2    ; new z
  772.  
  773.  ext.l d2
  774.  
  775.  move.w XOFF,d5
  776.  ext.l d5
  777.  asl.l #8,d5
  778.  add.l d5,d5
  779.  add.l d5,d0
  780.  
  781.  move.l d0,(a2)+
  782.  move.l d1,(a2)+
  783.  move.w d2,(a2)+
  784.  
  785.  dbra d7,ROTPTLOP
  786.  
  787. ; Now convert the rotated points to the screen:
  788.  
  789.  move.l #ROTATEDPTS,a0
  790.  move.l #ONSCREENPTS,a2
  791.  move.w num_points,d7
  792.  subq #1,d7
  793. CONVERTTOSCREEN:
  794.  move.l (a0)+,d0
  795.  move.l (a0)+,d1
  796.  move.w (a0)+,d2
  797.  add.w ZOFF,d2
  798.  ext.l d2
  799.  
  800.  move.l d0,d3
  801.  asr.l #1,d3
  802.  add.l d3,d0 
  803.  move.l d1,d3
  804.  asr.l #1,d3
  805.  add.l d3,d1 
  806.  
  807.  divs d2,d0
  808.  divs d2,d1
  809.  add.w #160*4,d0
  810.  add.w #128*4,d1
  811.  move.w d0,(a2)+
  812.  move.w d1,(a2)+
  813.  dbra d7,CONVERTTOSCREEN
  814.  
  815.  move.w #254,HIGHPOLY
  816.  
  817.  move.l LinesPtr,a1
  818.  move.l #PartBuffer,a0
  819.  move.l a0,a2
  820.  move.w #15,d0
  821. clrpartbuffSHAD:
  822.  move.l #$80000001,(a2)+
  823.  move.l #$80000001,(a2)+
  824.  move.l #$80000001,(a2)+
  825.  move.l #$80000001,(a2)+
  826.  dbra d0,clrpartbuffSHAD
  827.  
  828.  move.l #SHADOWPTS,a2
  829.  move.l OBJONOFF,d5
  830.  
  831.  move.w #0,d4
  832.  tst.w SORTIT
  833.  bne.s PutInPartsSHAD
  834.  
  835.  
  836. putinunsortedSHAD:
  837.  move.w (a1)+,d7
  838.  blt doneallpartsSHAD
  839.  lsr.l #1,d5
  840.  bcs.s .yeson
  841.  addq #2,a1
  842.  bra putinunsortedSHAD
  843. .yeson:
  844.  
  845.  move.w (a1)+,d6
  846.  move.l #0,(a0)+
  847.  move.w d7,(a0)+
  848.  move.w d4,(a0)+
  849.  addq #1,d4
  850.  bra putinunsortedSHAD
  851.  
  852. PutInPartsSHAD
  853.  move.w (a1)+,d7
  854.  blt doneallpartsSHAD
  855.  
  856.  lsr.l #1,d5
  857.  bcs.s .yeson
  858.  addq #2,a1
  859.  bra PutInPartsSHAD
  860. .yeson:
  861.  
  862.  move.w (a1)+,d6
  863.  move.l 4(a2,d6.w),d0
  864.  add.l #200000,d0
  865.  
  866.  move.l #PartBuffer-8,a0
  867.  
  868. stillfrontSHAD
  869.  addq #8,a0
  870.  cmp.l (a0),d0
  871.  blt stillfrontSHAD
  872.  move.l #endparttab-8,a5
  873. domoreshiftSHAD:
  874.  move.l -8(a5),(a5)
  875.  move.l -4(a5),4(a5)
  876.  subq #8,a5
  877.  cmp.l a0,a5
  878.  bgt.s domoreshiftSHAD
  879.  
  880.  move.l d0,(a0)
  881.  move.w d7,4(a0)
  882.  move.w d4,6(a0)
  883.  addq #1,d4
  884.  bra PutInPartsSHAD
  885.  
  886. doneallpartsSHAD:
  887.  
  888.  move.l #PartBuffer,a0
  889.  
  890. PartLoopSHAD
  891.  move.l (a0)+,d7
  892.  blt nomorepartsSHAD
  893.  
  894.  move.l #SAVEHIGHS,a2
  895.  move.w 2(a0),d0
  896.  move.w HIGHPOLY,(a2,d0.w*2)
  897.  
  898.  moveq #0,d0
  899.  move.w (a0),d0
  900.  addq #4,a0
  901.  add.l START_OF_OBJECT,d0
  902.  move.l d0,a1
  903.  
  904. polylooSHAD:
  905.  
  906.  tst.w (a1)
  907.  blt.s nomorepolysSHAD
  908.  movem.l a0/a1/d7,-(a7)
  909.  bsr doaSHADEpoly
  910.  movem.l (a7)+,a0/a1/d7
  911.  
  912.  move.w (a1),d0
  913.  lea 18(a1,d0.w*4),a1
  914.  
  915.  bra.s polylooSHAD
  916. nomorepolysSHAD:
  917.  sub.w #1,HIGHPOLY
  918.  bra PartLoopSHAD
  919. nomorepartsSHAD:
  920.  
  921. *******************************************
  922. * Now the on-screen bit...
  923. *******************************************
  924.  
  925.  move.l LinesPtr,a1
  926.  move.l #PartBuffer,a0
  927.  move.l a0,a2
  928.  move.w #15,d0
  929. clrpartbuff:
  930.  move.l #$80000001,(a2)+
  931.  move.l #$80000001,(a2)+
  932.  move.l #$80000001,(a2)+
  933.  move.l #$80000001,(a2)+
  934.  dbra d0,clrpartbuff
  935.  
  936.  move.l #ROTATEDPTS,a2
  937.  move.l OBJONOFF,d5
  938.  
  939.  moveq #0,d4
  940.  
  941.  tst.w SORTIT
  942.  bne.s PutInParts
  943.  
  944. putinunsorted:
  945.  move.w (a1)+,d7
  946.  blt doneallparts
  947.  lsr.l #1,d5
  948.  bcs.s .yeson
  949.  addq #2,a1
  950.  bra putinunsorted
  951. .yeson:
  952.  
  953.  move.w (a1)+,d6
  954.  move.l #0,(a0)+
  955.  move.w d7,(a0)+
  956.  move.w d4,(a0)+
  957.  
  958.  addq #1,d4
  959.  bra putinunsorted
  960.  
  961. PutInParts
  962.  move.w (a1)+,d7
  963.  blt doneallparts
  964.  
  965.  lsr.l #1,d5
  966.  bcs.s .yeson
  967.  addq #2,a1
  968.  bra PutInParts
  969. .yeson:
  970.  
  971.  move.w (a1)+,d6
  972.  move.l (a2,d6.w),d0
  973.  asr.l #8,d0
  974.  asr.l #2,d0
  975.  muls d0,d0
  976.  move.l 4(a2,d6.w),d2
  977.  asr.l #8,d2
  978.  asr.l #2,d2
  979.  muls d2,d2
  980.  add.l d2,d0 
  981.  move.w 8(a2,d6.w),d2
  982.  add.w #1024,d2
  983.  muls d2,d2
  984.  add.l d2,d0
  985.  
  986.  move.l #PartBuffer-8,a0
  987.  
  988. stillfront
  989.  addq #8,a0
  990.  cmp.l (a0),d0
  991.  blt stillfront
  992.  move.l #endparttab-8,a5
  993. domoreshift:
  994.  move.l -8(a5),(a5)
  995.  move.l -4(a5),4(a5)
  996.  subq #8,a5
  997.  cmp.l a0,a5
  998.  bgt.s domoreshift
  999.  
  1000.  move.l d0,(a0)
  1001.  move.w d7,4(a0)
  1002.  move.w d4,6(a0)
  1003.  addq #1,d4
  1004.  bra PutInParts
  1005.  
  1006. doneallparts:
  1007.  
  1008.  move.l #PartBuffer,a0
  1009.  
  1010. PartLoop
  1011.  move.l (a0)+,d7
  1012.  blt nomoreparts
  1013.  
  1014.  move.l #SAVEHIGHS,a2
  1015.  move.w 2(a0),d0
  1016.  move.w (a2,d0.w*2),HIGHPOLY
  1017.  
  1018.  moveq #0,d0
  1019.  move.w (a0),d0
  1020.  addq #4,a0
  1021.  add.l START_OF_OBJECT,d0
  1022.  move.l d0,a1
  1023.  
  1024. polyloo:
  1025.  
  1026.  tst.w (a1)
  1027.  blt.s nomorepolys
  1028.  movem.l a0/a1/d7,-(a7)
  1029.  bsr doapoly
  1030.  movem.l (a7)+,a0/a1/d7
  1031.  
  1032.  move.w (a1),d0
  1033.  lea 18(a1,d0.w*4),a1
  1034.  
  1035.  bra.s polyloo
  1036. nomorepolys:
  1037.  sub.w #1,HIGHPOLY
  1038.  bra PartLoop
  1039. nomoreparts:
  1040.  
  1041. NOPOLYS:
  1042.  
  1043.  
  1044.  
  1045. ; btst #6,$bfe001
  1046. ; beq.s .SHOWSHADOW
  1047.  
  1048.  move.l FASTBUFFER,a0
  1049.  add.l #40*320+64,a0
  1050.  move.l #RAWSCRN+40*40+8,a1
  1051.  move.l #(24)-1,d0
  1052.  move.l #175,d1
  1053.  move.w #128,d2
  1054.  move.w #16,d3
  1055.  moveq #0,d4
  1056.  moveq #0,d5
  1057.  jsr CHUNKYTOPLANAR 
  1058.  
  1059.  bra .SHOWNSCRN
  1060.  
  1061. .SHOWSHADOW
  1062.  
  1063.  move.l #SHADOWBUFFER,a0
  1064.  add.l #40*256,a0
  1065.  move.l #RAWSCRN+40*40,a1
  1066.  move.l #(256/8)-1,d0
  1067.  move.l #175,d1
  1068.  move.w #0,d2
  1069.  move.w #8,d3
  1070.  moveq #0,d4
  1071.  moveq #0,d5
  1072.  jsr CHUNKYTOPLANAR 
  1073.  
  1074. .SHOWNSCRN:
  1075.  
  1076.  move.l FASTBUFFER,a0
  1077.  move.l #NEBBIE,a1
  1078.  add.l #40*320+64,a0
  1079.  
  1080.  move.w #175,d0
  1081. clrchunk:
  1082.  move.l (a1)+,(a0)+
  1083.  move.l (a1)+,(a0)+
  1084.  move.l (a1)+,(a0)+
  1085.  move.l (a1)+,(a0)+
  1086.  move.l (a1)+,(a0)+
  1087.  move.l (a1)+,(a0)+
  1088.  move.l (a1)+,(a0)+
  1089.  move.l (a1)+,(a0)+
  1090.  move.l (a1)+,(a0)+
  1091.  move.l (a1)+,(a0)+
  1092.  move.l (a1)+,(a0)+
  1093.  move.l (a1)+,(a0)+
  1094.  move.l (a1)+,(a0)+
  1095.  move.l (a1)+,(a0)+
  1096.  move.l (a1)+,(a0)+
  1097.  move.l (a1)+,(a0)+
  1098.  move.l (a1)+,(a0)+
  1099.  move.l (a1)+,(a0)+
  1100.  move.l (a1)+,(a0)+
  1101.  move.l (a1)+,(a0)+
  1102.  move.l (a1)+,(a0)+
  1103.  move.l (a1)+,(a0)+
  1104.  move.l (a1)+,(a0)+
  1105.  move.l (a1)+,(a0)+
  1106.  move.l (a1)+,(a0)+
  1107.  move.l (a1)+,(a0)+
  1108.  move.l (a1)+,(a0)+
  1109.  move.l (a1)+,(a0)+
  1110.  move.l (a1)+,(a0)+
  1111.  move.l (a1)+,(a0)+
  1112.  move.l (a1)+,(a0)+
  1113.  move.l (a1)+,(a0)+
  1114.  move.l (a1)+,(a0)+
  1115.  move.l (a1)+,(a0)+
  1116.  move.l (a1)+,(a0)+
  1117.  move.l (a1)+,(a0)+
  1118.  move.l (a1)+,(a0)+
  1119.  move.l (a1)+,(a0)+
  1120.  move.l (a1)+,(a0)+
  1121.  move.l (a1)+,(a0)+
  1122.  move.l (a1)+,(a0)+
  1123.  move.l (a1)+,(a0)+
  1124.  move.l (a1)+,(a0)+
  1125.  move.l (a1)+,(a0)+
  1126.  move.l (a1)+,(a0)+
  1127.  move.l (a1)+,(a0)+
  1128.  move.l (a1)+,(a0)+
  1129.  move.l (a1)+,(a0)+
  1130.  add.w #(320-192),a0
  1131.  dbra d0,clrchunk
  1132.  
  1133.  move.l #SHADOWBUFFER,a0
  1134.  move.l #-1,d1
  1135.  move.l #-1,d2
  1136.  move.w #15,d0
  1137. ;clrshad:
  1138. ; move.w #15,d5
  1139. ;innner
  1140. ; move.l d2,(a0)+
  1141. ; move.l d2,(a0)+
  1142. ; move.l d2,(a0)+
  1143. ; move.l d2,(a0)+
  1144. ; move.l d1,(a0)+
  1145. ; move.l d1,(a0)+
  1146. ; move.l d1,(a0)+
  1147. ; move.l d1,(a0)+
  1148. ; move.l d2,(a0)+
  1149. ; move.l d2,(a0)+
  1150. ; move.l d2,(a0)+
  1151. ; move.l d2,(a0)+
  1152. ; move.l d1,(a0)+
  1153. ; move.l d1,(a0)+
  1154. ; move.l d1,(a0)+
  1155. ; move.l d1,(a0)+
  1156. ; move.l d2,(a0)+
  1157. ; move.l d2,(a0)+
  1158. ; move.l d2,(a0)+
  1159. ; move.l d2,(a0)+
  1160. ; move.l d1,(a0)+
  1161. ; move.l d1,(a0)+
  1162. ; move.l d1,(a0)+
  1163. ; move.l d1,(a0)+
  1164. ; move.l d2,(a0)+
  1165. ; move.l d2,(a0)+
  1166. ; move.l d2,(a0)+
  1167. ; move.l d2,(a0)+
  1168. ; move.l d1,(a0)+
  1169. ; move.l d1,(a0)+
  1170. ; move.l d1,(a0)+
  1171. ; move.l d1,(a0)+
  1172. ; move.l d2,(a0)+
  1173. ; move.l d2,(a0)+
  1174. ; move.l d2,(a0)+
  1175. ; move.l d2,(a0)+
  1176. ; move.l d1,(a0)+
  1177. ; move.l d1,(a0)+
  1178. ; move.l d1,(a0)+
  1179. ; move.l d1,(a0)+
  1180. ; move.l d2,(a0)+
  1181. ; move.l d2,(a0)+
  1182. ; move.l d2,(a0)+
  1183. ; move.l d2,(a0)+
  1184. ; move.l d1,(a0)+
  1185. ; move.l d1,(a0)+
  1186. ; move.l d1,(a0)+
  1187. ; move.l d1,(a0)+
  1188. ; move.l d2,(a0)+
  1189. ; move.l d2,(a0)+
  1190. ; move.l d2,(a0)+
  1191. ; move.l d2,(a0)+
  1192. ; move.l d1,(a0)+
  1193. ; move.l d1,(a0)+
  1194. ; move.l d1,(a0)+
  1195. ; move.l d1,(a0)+
  1196. ; move.l d2,(a0)+
  1197. ; move.l d2,(a0)+
  1198. ; move.l d2,(a0)+
  1199. ; move.l d2,(a0)+
  1200. ; move.l d1,(a0)+
  1201. ; move.l d1,(a0)+
  1202. ; move.l d1,(a0)+
  1203. ; move.l d1,(a0)+
  1204. ; dbra d5,innner
  1205. ; exg d1,d2
  1206. ;
  1207. ; dbra d0,clrshad
  1208.  
  1209.  
  1210.  
  1211.     btst #7,$bfe001
  1212.     beq.s exit_closescr
  1213.  
  1214.  
  1215.     add.l #$8000,lmxoff
  1216.     cmp.l #40*65536,lmxoff
  1217.     blt.s .oksm
  1218.     sub.l #40*65536,lmxoff    
  1219. .oksm
  1220.  
  1221.     bra loop
  1222.     
  1223. lmxoff: dc.l 0
  1224.  
  1225. exit_closescr
  1226.     move.l    MyScreen(pc),a0
  1227.     CALLINT CloseScreen
  1228.  
  1229. exit_closeall
  1230.     move.l    _GfxBase(pc),a1
  1231.     CALLEXEC CloseLibrary
  1232.  
  1233. exit_closeint
  1234.     move.l    _IntuitionBase(pc),a1
  1235.     CALLEXEC CloseLibrary
  1236.  
  1237. exit_false
  1238.     move.l    #0,d0                return code
  1239.     rts
  1240.  
  1241. TESTTAB: ds.w 30
  1242.  
  1243. ************************************************
  1244. * SUBROUTINES HERE. ****************************
  1245. ************************************************
  1246.  
  1247. **********************************************************
  1248.  
  1249. * the definition of the screen - note that in assembler you
  1250. * MUST get the sizes of these fields correct, by consulting either
  1251. * the RKM or the header files
  1252.  
  1253.  
  1254. MyNewScreen    dc.w    0,0        left, top
  1255.         dc.w    320,256        width, height
  1256.         dc.w    8        depth
  1257.         dc.b    0,1        pens
  1258.         dc.w    0        viewmodes
  1259.         dc.w    CUSTOMSCREEN    type
  1260.         dc.l    MyFont        font
  1261.         dc.l    screen_title    title
  1262.         dc.l    0        gadgets
  1263.         dc.l    0        bitmap
  1264.  
  1265. * my font definition
  1266. MyFont    dc.l    font_name
  1267.     dc.w    TOPAZ_SIXTY
  1268.     dc.b    FS_NORMAL
  1269.     dc.b    FPF_ROMFONT
  1270.  
  1271. * the variables
  1272. _IntuitionBase    dc.l    0        Intuition lib pointer
  1273. _GfxBase    dc.l    0        graphics lib pointer
  1274. MyScreen        dc.l    0
  1275. MyWindow        dc.l    0
  1276. MyNewWindow    ds.b    nw_SIZE        a buffer
  1277.  
  1278.  
  1279. * some strings
  1280. int_name    INTNAME
  1281. graf_name    GRAFNAME
  1282. hello_message    dc.b    'Hello World'
  1283.  
  1284. * these are C strings, so have to be null terminated
  1285. screen_title    dc.b    'My Own Screen',0
  1286. font_name    dc.b    'topaz.font',0
  1287. window_title    dc.b    'A Simple Window',0
  1288.  
  1289.  even
  1290.  
  1291.  
  1292. doaSHADEpoly:
  1293.  
  1294.  move.w (a1)+,d7    ; sides to draw
  1295.  addq #2,a1        ; avoid holes
  1296.  
  1297.  move.l #SHADOWPTS,a3
  1298.  
  1299.  move.w (a1),d0
  1300.  move.w 4(a1),d1
  1301.  move.w 8(a1),d2
  1302.  muls #10,d0
  1303.  muls #10,d1
  1304.  muls #10,d2
  1305.  move.w 8(a3,d0.w),d3
  1306.  move.w 8(a3,d1.w),d4
  1307.  move.w 8(a3,d2.w),d5
  1308.  move.l (a3,d0.w),d0
  1309.  move.l (a3,d1.w),d1
  1310.  move.l (a3,d2.w),d2
  1311.  asr.l #8,d0
  1312.  asr.l #8,d1
  1313.  asr.l #8,d2
  1314.  asr.l #1,d0
  1315.  asr.l #1,d1
  1316.  asr.l #1,d2
  1317.  
  1318.  sub.w d1,d0
  1319.  sub.w d1,d2
  1320.  sub.w d4,d3
  1321.  sub.w d4,d5
  1322.  muls d3,d2
  1323.  muls d5,d0
  1324.  sub.l d0,d2
  1325.  bge SHADpolybehind
  1326.  
  1327.  move.w #20000,d4    ; top
  1328.  move.w #-20000,d5    ; bottom
  1329.  move.l #UVCOORDS,a4
  1330.  
  1331. putinlinesSHAD:
  1332.  move.w (a1),d0
  1333.  move.w 4(a1),d1
  1334.  
  1335.  moveq #0,d2
  1336.  move.b 2(a1),d2    ; one end U
  1337.  move.w d2,2(a4,d0.w*4)
  1338.  move.b 3(a1),d2    ; one end V
  1339.  move.w d2,(a4,d0.w*4)
  1340.  move.b 6(a1),d2    ; two end U
  1341.  move.w d2,2(a4,d1.w*4)
  1342.  move.b 7(a1),d2    ; two end V
  1343.  move.w d2,(a4,d1.w*4)
  1344.  
  1345.  move.w d0,d2
  1346.  muls #10,d2
  1347.  move.w 8(a3,d2.w),d2    ; Z
  1348.  
  1349.  cmp.w d2,d4
  1350.  ble.s .oktop
  1351.  move.w d2,d4
  1352. .oktop
  1353.  cmp.w d2,d5
  1354.  bge.s .okbot
  1355.  move.w d2,d5
  1356. .okbot
  1357.  
  1358.  movem.l d4/d5/d7/a1/a3/a4,-(a7)
  1359.  bsr SIMPLESHADLINE
  1360.  movem.l (a7)+,d4/d5/d7/a1/a3/a4
  1361.  addq #4,a1
  1362.  dbra d7,putinlinesSHAD
  1363.  addq #4,a1
  1364.   
  1365.  move.w (a1)+,TEXTUREADD
  1366.  
  1367.  asr.w #2,d4
  1368.  asr.w #2,d5
  1369.  add.w #128,d4
  1370.  add.w #128,d5
  1371.  move.w d4,TOPLINE
  1372.  move.w d5,BOTLINE
  1373.  
  1374. * Now draw the shadow polygon....
  1375.  
  1376.  move.l #SHADOWBUFFER,a2
  1377.  move.l #LEFTUVS,a0
  1378.  move.w TOPLINE,d0
  1379.  move.w BOTLINE,d1
  1380.  sub.w d0,d1
  1381.  asl.w #3,d0
  1382.  add.w d0,a0
  1383.  muls #(256/8),d0
  1384.  add.l d0,a2    ; pointer to screen line.
  1385.  
  1386.  subq #1,d1
  1387.  blt NOPOLYGONSHAD
  1388.  
  1389. DOAHORLINESHAD:
  1390.  swap d1
  1391.  
  1392.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1393.  move.w (a0)+,d7
  1394.  sub.w d7,d0
  1395.  blt NOPOLYGONSHAD
  1396.  
  1397.  move.l a2,-(a7)
  1398.  
  1399. ; asr.w #2,d0
  1400. ; asr.w #2,d7
  1401.  add.w d7,a2
  1402.  ext.l d0
  1403.  addq #1,d0
  1404.  
  1405.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1406.  move.w (a0)+,d4
  1407.  swap d7
  1408.  clr.w d7
  1409.  swap d4
  1410.  clr.w d4
  1411.  sub.l d4,d7
  1412.  divs.l d0,d7
  1413.  move.l d7,a5
  1414.  
  1415.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1416.  swap d7
  1417.  clr.w d7
  1418.  move.w (a0)+,d5
  1419.  swap d5
  1420.  clr.w d5
  1421.  sub.l d5,d7
  1422.  divs.l d0,d7
  1423.  move.l d7,a6
  1424.  
  1425.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1426.  swap d7
  1427.  clr.w d7
  1428.  move.w (a0)+,d6
  1429.  swap d6
  1430.  clr.w d6
  1431.  sub.l d6,d7
  1432.  divs.l d0,d7
  1433.  move.l d7,a3
  1434.  
  1435.  move.l a0,-(a7)
  1436.  move.l d1,-(a7)
  1437.  move.l #TEXTURES,a0
  1438.  move.w TEXTUREADD,d7
  1439.  bge.s .okaddtes
  1440.  and.w #$7fff,d7
  1441.  add.l #65536,a0
  1442. .okaddtes:
  1443.  add.w d7,a0
  1444.  move.w #0,d7
  1445.  
  1446.  subq #1,d0
  1447.  
  1448. ; d0=xdist
  1449. ; d4=U  a5=DU
  1450. ; d5=V  a6=DV
  1451. ; d6=Y  a3=DY
  1452.  moveq #0,d1
  1453.  
  1454.  swap d6
  1455.  
  1456. PLOTADOT:
  1457.  
  1458. .across
  1459.  
  1460.  swap d4
  1461.  swap d5
  1462.  move.w d4,d2
  1463.  lsl.w #8,d2
  1464.  swap d4
  1465.  move.b d5,d2
  1466.  add.l a5,d4
  1467.  swap d5
  1468.  add.l a6,d5
  1469.  
  1470.  
  1471. ; swap d6
  1472. ; move.b (a2)+,d1
  1473.  tst.b (a0,d2.w*4)
  1474.  beq.s .noplottt
  1475.  move.b d6,(a2)+
  1476.  
  1477.  dbra d0,.across
  1478.  bra.s .plaster
  1479.  
  1480. .noplottt:
  1481.  addq #1,a2
  1482.  dbra d0,.across
  1483.  
  1484. .plaster:
  1485.  
  1486.  move.l (a7)+,d1
  1487.  move.l (a7)+,a0
  1488.  move.l (a7)+,a2
  1489.  
  1490. .noline:
  1491.  add.w #256,a2
  1492.  
  1493.  swap d1
  1494.  dbra d1,DOAHORLINESHAD
  1495.  
  1496. NOPOLYGONSHAD:
  1497.  
  1498. SHADpolybehind:
  1499.  rts
  1500.  
  1501.  
  1502. ************************************************
  1503.  
  1504. LU: dc.w 0
  1505. LV: dc.w 0
  1506. RU: dc.w 0
  1507. RV: dc.w 0
  1508.     
  1509. SIMPLESHADLINE:
  1510.  move.l #SHADOWPTS,a1
  1511.  
  1512.  move.l #UVCOORDS,a2
  1513.  move.w (a2,d0.w*4),LU
  1514.  move.w 2(a2,d0.w*4),LV
  1515.  move.w (a2,d1.w*4),RU
  1516.  move.w 2(a2,d1.w*4),RV
  1517.  
  1518.  muls #10,d0
  1519.  muls #10,d1
  1520.  move.w 8(a1,d0.w),d2        ;fz
  1521.  move.w 8(a1,d1.w),d7        ;sz
  1522.  ext.l d2
  1523.  ext.l d7
  1524.  
  1525.  move.l #LEFTUVS,a3
  1526.  asr.l #2,d2
  1527.  asr.l #2,d7
  1528.  cmp.l d2,d7 
  1529.  beq .noline
  1530.  
  1531.  bgt.s .lineonright
  1532. .lineonleft:
  1533.  move.l #RIGHTUVS,a3
  1534.  exg d0,d1
  1535.  exg d2,d7
  1536.  
  1537.  move.l LU,d5
  1538.  move.l RU,LU
  1539.  move.l d5,RU
  1540.  
  1541. .lineonright:
  1542.  
  1543.  sub.w d2,d7
  1544.  add.w #128,d2
  1545.  lea (a3,d2.w*8),a3
  1546.  
  1547.  move.w d7,YDIFF
  1548.  
  1549.  move.l (a1,d0.w),d3        ;fx
  1550.  move.l (a1,d1.w),d7        ;sx
  1551.  
  1552.  asl.l #5,d3
  1553.  asl.l #5,d7
  1554.  
  1555.  sub.l d3,d7
  1556.  divs.l YDIFF-2,d7
  1557.  move.l d7,a0    ; dx
  1558.  
  1559.  move.l #ROTATEDPTS,a1
  1560.  
  1561.  move.w LU,d4
  1562.  move.w LV,d5
  1563.  move.w RU,d6
  1564.  move.w RV,d7
  1565.  
  1566.  sub.w d4,d6
  1567.  sub.w d5,d7
  1568.  swap d4
  1569.  swap d5
  1570.  clr.w d4
  1571.  clr.w d5
  1572.  swap d6
  1573.  swap d7
  1574.  clr.w d6
  1575.  clr.w d7
  1576.  
  1577.  divs.l YDIFF-2,d6
  1578.  divs.l YDIFF-2,d7
  1579.  
  1580.  move.l d6,a4
  1581.  move.l d7,a5
  1582.  
  1583. ; asl.w #4,d0
  1584. ; asl.w #4,d1
  1585.  
  1586.  move.l 4(a1,d0.w),d6
  1587.  move.l 4(a1,d1.w),d7
  1588.  asl.l #5,d6
  1589.  asl.l #5,d7
  1590.  sub.l d6,d7
  1591.  divs.l YDIFF-2,d7
  1592.  exg d7,a6
  1593.  exg d7,d6
  1594.  
  1595.  move.l YDIFF-2,d1
  1596.  subq #1,d1
  1597.  
  1598. ; d3=x a0=dx
  1599. ; d4=u a4=du
  1600. ; d5=v a5=dv
  1601. ; d7=y a6=dy
  1602. ; d1=dz
  1603.  
  1604.  move.w HIGHPOLY,d7
  1605.  
  1606.  add.l #128*65536,d3
  1607. ; add.l #128*65536,d7
  1608.  
  1609. .PUTINLINE:
  1610.  swap d3
  1611.  move.w d3,(a3)+
  1612.  swap d3
  1613.  add.l a0,d3
  1614.  swap d4
  1615.  move.w d4,(a3)+
  1616.  swap d4
  1617.  swap d5
  1618.  add.l a4,d4
  1619.  move.w d5,(a3)+
  1620.  swap d5
  1621.  add.l a5,d5
  1622. ; swap d7
  1623.  move.w d7,(a3)+
  1624. ; swap d7
  1625. ; add.l a6,d7
  1626.  dbra d1,.PUTINLINE
  1627.  
  1628. .noline:
  1629.  rts
  1630.  
  1631.  
  1632. **************************************************
  1633.  
  1634. doapoly:
  1635.  
  1636.  move.w (a1)+,d7    ; sides to draw
  1637.  addq #2,a1        ; avoid holes
  1638.  move.w 12(a1,d7.w*4),pregour
  1639.  
  1640.  move.l #ONSCREENPTS,a3
  1641.  
  1642.  move.w (a1),d0
  1643.  move.w 4(a1),d1
  1644.  move.w 8(a1),d2
  1645.  move.w 2(a3,d0.w*4),d3
  1646.  move.w 2(a3,d1.w*4),d4
  1647.  move.w 2(a3,d2.w*4),d5
  1648.  move.w (a3,d0.w*4),d0
  1649.  move.w (a3,d1.w*4),d1
  1650.  move.w (a3,d2.w*4),d2
  1651.  
  1652.  sub.w d1,d0
  1653.  sub.w d1,d2
  1654.  sub.w d4,d3
  1655.  sub.w d4,d5
  1656.  muls d3,d2
  1657.  muls d5,d0
  1658.  sub.l d0,d2
  1659.  ble polybehind
  1660.  
  1661.  move.w #20000,d4    ; top
  1662.  move.w #-20000,d5    ; bottom
  1663.  move.l #UVCOORDS,a4
  1664.  
  1665.  move.l a1,a0
  1666.  
  1667. putinlines:
  1668.  move.w (a1),d0
  1669.  move.w 4(a1),d1
  1670.  
  1671.  moveq #0,d2
  1672.  move.b 2(a1),d2    ; one end U
  1673.  move.w d2,2(a4,d0.w*4)
  1674.  move.b 3(a1),d2    ; one end V
  1675.  move.w d2,(a4,d0.w*4)
  1676.  move.b 6(a1),d2    ; two end U
  1677.  move.w d2,2(a4,d1.w*4)
  1678.  move.b 7(a1),d2    ; two end V
  1679.  move.w d2,(a4,d1.w*4)
  1680.  
  1681.  move.w 2(a3,d0.w*4),d2    ; Z
  1682.  
  1683.  cmp.w d2,d4
  1684.  ble.s .oktop
  1685.  move.w d2,d4
  1686. .oktop
  1687.  cmp.w d2,d5
  1688.  bge.s .okbot
  1689.  move.w d2,d5
  1690. .okbot
  1691.  
  1692.  movem.l a0/d4/d5/d7/a1/a3/a4,-(a7)
  1693.  jsr SIMPLECALCLINE
  1694.  movem.l (a7)+,a0/d4/d5/d7/a1/a3/a4
  1695.  addq #4,a1
  1696.  dbra d7,putinlines
  1697.  addq #4,a1 
  1698.  
  1699.  move.w (a1)+,TEXTUREADD
  1700.  
  1701.  asr.w #2,d4
  1702.  asr.w #2,d5
  1703. ; add.w #128,d4
  1704. ; add.w #128,d5
  1705.  move.w d4,TOPLINE
  1706.  move.w d5,BOTLINE
  1707.   
  1708.  move.l #SHADOWPTS,a1
  1709.  move.w (a0),d0
  1710.  move.w 4(a0),d1
  1711.  move.w 8(a0),d2
  1712.  
  1713. CHECKVALS:
  1714.  
  1715.  muls #10,d0
  1716.  muls #10,d1
  1717.  muls #10,d2
  1718.  
  1719.  lea (a1,d0.w),a0
  1720.  lea (a1,d2.w),a2
  1721.  lea (a1,d1.w),a1
  1722.  
  1723.  move.l (a0),d3
  1724.  sub.l (a1),d3
  1725.  asr.l #8,d3
  1726.  asr.l #1,d3
  1727.  move.l 4(a0),d4
  1728.  sub.l 4(a1),d4
  1729.  asr.l #8,d4
  1730.  asr.l #1,d4
  1731.  move.w 8(a0),d5
  1732.  sub.w 8(a1),d5
  1733.  
  1734.  move.w d3,d6
  1735.  muls d6,d6
  1736.  move.w d4,d7
  1737.  muls d7,d7
  1738.  add.l d7,d6
  1739.  move.w d5,d7
  1740.  muls d7,d7
  1741.  add.l d7,d6
  1742.  move.l d6,d2
  1743.  jsr CALCSQROOT
  1744.  move.w d2,LEN1
  1745.  
  1746.  move.l (a2),d0
  1747.  sub.l (a1),d0
  1748.  asr.l #8,d0
  1749.  asr.l #1,d0
  1750.  move.l 4(a2),d1
  1751.  sub.l 4(a1),d1
  1752.  asr.l #8,d1
  1753.  asr.l #1,d1
  1754.  move.w 8(a2),d2
  1755.  sub.w 8(a1),d2
  1756.  
  1757.  muls d2,d3
  1758.  muls d0,d5
  1759.  sub.l d3,d5    ; length
  1760.  muls.l #$4c,d5
  1761.  
  1762.  muls d0,d0
  1763.  muls d1,d1
  1764.  muls d2,d2
  1765.  add.l d0,d1
  1766.  add.l d1,d2
  1767.  jsr CALCSQROOT
  1768.  
  1769.  muls LEN1,d2
  1770.  bgt.s .ok
  1771.  moveq #1,d2
  1772. .ok
  1773.  
  1774.  divs.l d2,d5
  1775.  
  1776.  add.l #16,d5
  1777.  
  1778.  tst.l d5
  1779.  ble.s .okbr
  1780.  moveq #0,d5
  1781. .okbr:
  1782.  add.w #$3c,d5
  1783.  bge.s .okbr2
  1784.  moveq #0,d5
  1785. .okbr2:
  1786.  
  1787.  move.w d5,d0
  1788.  
  1789.  asl.w #8,d5
  1790.  move.w d5,BRIGHTNESS+2
  1791.  
  1792.  sub.w #$3c,d0
  1793.  asr.w #1,d0
  1794.  add.w #$3c,d0
  1795.  asl.w #8,d0
  1796.  move.w d0,BRIGHTNESS
  1797.  
  1798.  
  1799. ***********************************************
  1800. * Draw the polygon (shadowed).
  1801.  
  1802.  move.l FASTBUFFER,a2
  1803.  move.l #LEFTUVS,a0
  1804.  move.w TOPLINE,d0
  1805.  move.w BOTLINE,d1
  1806.  sub.w d0,d1
  1807.  asl.w #4,d0
  1808.  add.w d0,a0
  1809.  muls #(320/16),d0
  1810.  add.l d0,a2    ; pointer to screen line.
  1811.  
  1812.  subq #1,d1
  1813.  blt NOPOLYGON
  1814.  
  1815.  tst.b Gouraud
  1816.  bne GOURPOLY
  1817.  
  1818. DOAHORLINE:
  1819.  swap d1
  1820.  
  1821.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1822.  move.w (a0)+,d7
  1823.  asr.w #2,d0
  1824.  asr.w #2,d7
  1825.  sub.w d7,d0
  1826.  bge.s .okflibble
  1827.  
  1828.  add.w #14,a0
  1829.  add.w #320,a2
  1830.  swap d1
  1831.  dbra d1,DOAHORLINE
  1832.  bra NOPOLYGON
  1833.  
  1834. .okflibble:
  1835.  
  1836.  move.l a2,-(a7)
  1837.  
  1838.  add.w d7,a2
  1839.  ext.l d0
  1840.  addq #1,d0
  1841.  
  1842.  move.l RIGHTUVS-LEFTUVS(a0),d7
  1843.  move.l (a0)+,d2 
  1844.  sub.l d2,d7
  1845.  divs.l d0,d7
  1846.  move.l d7,a1
  1847.  
  1848.  
  1849.  
  1850.  
  1851.  
  1852.  
  1853.  
  1854.  
  1855.  
  1856.  
  1857.  
  1858.  
  1859.  
  1860.  
  1861.  
  1862.  
  1863.  
  1864.  
  1865.  move.l RIGHTUVS-LEFTUVS(a0),d7 
  1866.  move.l (a0)+,d3 
  1867.  
  1868.  
  1869.  
  1870.  
  1871.  
  1872.  
  1873.  
  1874.  
  1875.  
  1876.  
  1877.  
  1878.  
  1879.  
  1880.  
  1881.  
  1882.  
  1883.  
  1884.  
  1885.  
  1886.  
  1887.  sub.l d3,d7
  1888.  divs.l d0,d7
  1889.  move.l d7,a4
  1890.  
  1891.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1892.  move.w (a0)+,d4
  1893.  swap d7
  1894.  clr.w d7
  1895.  swap d4
  1896.  clr.w d4
  1897.  sub.l d4,d7
  1898.  divs.l d0,d7
  1899.  move.l d7,a5
  1900.  
  1901.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1902.  swap d7
  1903.  clr.w d7
  1904.  move.w (a0)+,d5
  1905.  swap d5
  1906.  clr.w d5
  1907.  sub.l d5,d7
  1908.  divs.l d0,d7
  1909.  move.l d7,a6
  1910.  
  1911.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1912.  swap d7
  1913.  clr.w d7
  1914.  move.w (a0)+,d6
  1915.  swap d6
  1916.  clr.w d6
  1917.  sub.l d6,d7
  1918.  divs.l d0,d7
  1919.  move.l d7,a3
  1920.  
  1921.  move.l a0,-(a7)
  1922.  move.l d1,-(a7)
  1923.  move.l #TEXTURES,a0
  1924.  move.w TEXTUREADD,d7
  1925.  bge.s .okaddtes
  1926.  and.w #$7fff,d7
  1927.  add.l #65536,a0
  1928. .okaddtes:
  1929.  add.w d7,a0
  1930.  move.w #0,d7
  1931.  
  1932.  move.l BRIGHTNESS,a6
  1933.  
  1934.  move.l a7,SAVESTACK
  1935.  move.l #SHADOWBUFFER,a7
  1936.  
  1937.  subq #1,d0
  1938.  
  1939. ; d0=xdist
  1940. ; d2=U    a1=DU
  1941. ; d3=V  a4=DV
  1942. ; d4=X  a5=DX
  1943. ; d5=Y  a6=DY
  1944. ; d6=Z  a3=DZ
  1945.  move.w HIGHPOLY,d5
  1946.  
  1947.  moveq #0,d1
  1948.  swap d6
  1949.  move.w d6,d1
  1950.  lsl.w #8,d1
  1951.  swap d4
  1952.  move.b d4,d1
  1953.  swap d4
  1954.  swap d6
  1955.  
  1956.  moveq #0,d7
  1957.  move.b (a7,d1.l),d7
  1958.  cmp.w d7,d5
  1959.  ble INTHELIGHT
  1960.  bra.s INTHEDARK
  1961.  
  1962. PENUMBRA:
  1963.  moveq #0,d1
  1964.  swap d6
  1965.  move.w d6,d1
  1966.  lsl.w #8,d1
  1967.  swap d4
  1968.  move.b d4,d1
  1969.  swap d4
  1970.  swap d6
  1971.  add.l a5,d4
  1972.  add.l a3,d6
  1973.  
  1974.  moveq #0,d7
  1975.  move.b (a7,d1.l),d7
  1976.  cmp.w d7,d5
  1977.  ble INTOLIGHT
  1978.  bra.s INTODARK
  1979.  
  1980.  
  1981. INTHEDARK:
  1982.  moveq #0,d1
  1983.  swap d6
  1984.  move.w d6,d1
  1985.  lsl.w #8,d1
  1986.  swap d4
  1987.  move.b d4,d1
  1988.  swap d4
  1989.  swap d6
  1990.  add.l a5,d4
  1991.  add.l a3,d6
  1992.  
  1993.  moveq #0,d7
  1994.  move.b (a7,d1.l),d7
  1995.  cmp.w d7,d5
  1996.  ble.s INTOPENUM
  1997. INTODARK:
  1998.  move.w #$3c00,d7
  1999.  swap d2
  2000.  move.w d2,d1
  2001.  asl.w #8,d1
  2002.  swap d3
  2003.  move.b d3,d1
  2004.  swap d2
  2005.  swap d3
  2006.  add.l a1,d2
  2007.  add.l a4,d3
  2008.  
  2009.  move.b (a0,d1.w*4),d7
  2010.  beq.s .noplottt
  2011.  
  2012.  move.b TEXTUREPAL-256(pc,d7.w),(a2)+
  2013.  dbra d0,INTHEDARK
  2014.  bra.s PASTAC 
  2015.  
  2016. .noplottt
  2017.  addq #1,a2
  2018.  dbra d0,INTHEDARK
  2019.  bra.s PASTAC
  2020.  
  2021. INTOPENUM:
  2022.  move.l a6,d7
  2023.  swap d7
  2024.  swap d2
  2025.  move.w d2,d1
  2026.  asl.w #8,d1
  2027.  swap d3
  2028.  move.b d3,d1
  2029.  swap d2
  2030.  swap d3
  2031.  add.l a1,d2
  2032.  add.l a4,d3
  2033.  
  2034.  move.b (a0,d1.w*4),d7
  2035.  beq.s .noplottt
  2036.  
  2037.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2038.  dbra d0,PENUMBRA
  2039.  bra.s PASTAC 
  2040.  
  2041. .noplottt
  2042.  addq #1,a2
  2043.  dbra d0,PENUMBRA
  2044.  bra.s PASTAC
  2045.  
  2046. INTHELIGHT:
  2047.  
  2048.  moveq #0,d1
  2049.  swap d6
  2050.  move.w d6,d1
  2051.  lsl.w #8,d1
  2052.  swap d4
  2053.  move.b d4,d1
  2054.  swap d4
  2055.  swap d6
  2056.  add.l a5,d4
  2057.  add.l a3,d6
  2058.  
  2059.  moveq #0,d7
  2060.  move.b (a7,d1.l),d7
  2061.  cmp.w d7,d5
  2062.  bgt.s INTOPENUM
  2063. INTOLIGHT:
  2064.  move.w a6,d7
  2065.  swap d2
  2066.  move.w d2,d1
  2067.  asl.w #8,d1
  2068.  swap d3
  2069.  move.b d3,d1
  2070.  swap d2
  2071.  swap d3
  2072.  add.l a1,d2
  2073.  add.l a4,d3
  2074.  
  2075.  move.b (a0,d1.w*4),d7
  2076.  beq.s .noplottt
  2077.  
  2078.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2079.  dbra d0,INTHELIGHT
  2080.  bra.s PASTAC 
  2081.  
  2082. .noplottt:
  2083.  addq #1,a2
  2084.  dbra d0,INTHELIGHT
  2085.  
  2086. PASTAC
  2087.  
  2088.  move.l SAVESTACK,a7
  2089.  
  2090.  move.l (a7)+,d1
  2091.  move.l (a7)+,a0
  2092.  move.l (a7)+,a2
  2093.  
  2094. .noline:
  2095.  add.w #320,a2
  2096.  
  2097.  swap d1
  2098.  dbra d1,DOAHORLINE
  2099.  
  2100.  
  2101.  bra NOPOLYGON
  2102.  
  2103. TEXTUREPAL: incbin "ab3:includes/shadow.pal"
  2104.  
  2105. SAVESTACK: dc.l 0
  2106. HIGHPOLY: dc.w 0
  2107. LEN1: dc.w 0
  2108. BRIGHTNESS: dc.l 0
  2109. TRANSTEXT: dc.w 0
  2110. AANG: dc.w 0
  2111. BANG: dc.w 0
  2112. CANG: dc.w 0
  2113. DANG: dc.w 0
  2114.  
  2115. NOPOLYGON:
  2116. polybehind:
  2117.  rts
  2118.  
  2119.  
  2120. GOURPOLY: 
  2121.  
  2122. DOAHORLINEGOUR:
  2123.  swap d1
  2124.  
  2125.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2126.  move.w (a0)+,d7
  2127.  asr.w #2,d0
  2128.  asr.w #2,d7
  2129.  sub.w d7,d0
  2130.  bge.s .okflibble
  2131.  
  2132.  add.w #14,a0
  2133.  add.w #320,a2
  2134.  swap d1
  2135.  dbra d1,DOAHORLINEGOUR
  2136.  bra NOPOLYGON
  2137.  
  2138. .okflibble:
  2139.  
  2140.  move.l a2,-(a7)
  2141.  
  2142.  add.w d7,a2
  2143.  ext.l d0
  2144.  addq #1,d0
  2145.  
  2146.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2147.  move.l (a0)+,d2 
  2148.  
  2149.  moveq #0,d3
  2150.  moveq #0,d5
  2151.  move.w d2,d3
  2152.  move.w d7,d5
  2153.  swap d3
  2154.  swap d5
  2155.  sub.l d3,d5
  2156.  divs.l d0,d5
  2157.  asr.l #8,d5
  2158.  move.w d5,RIGHTBRIGHT
  2159.  asr.l #8,d3
  2160.  move.w d3,LEFTBRIGHT
  2161.  
  2162.  clr.w d2
  2163.  clr.w d7
  2164.  sub.l d2,d7
  2165.  asl.l #8,d2
  2166.  divs.l d0,d7
  2167.  asl.l #8,d7
  2168.  
  2169.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  2170.  move.l (a0)+,d3
  2171.  
  2172.  moveq #0,d4
  2173.  moveq #0,d5
  2174.  move.w d6,d5
  2175.  move.w d3,d4
  2176.  swap d5
  2177.  swap d4
  2178.  
  2179.  sub.l d4,d5
  2180.  divs.l d0,d5
  2181.  asr.l #8,d4
  2182.  asr.l #8,d5
  2183.  
  2184.  move.w d4,d2
  2185.  ext.l d5
  2186.  move.w d5,d7
  2187.  move.l d7,a1
  2188.   
  2189.  clr.w d3
  2190.  clr.w d6
  2191.  sub.l d3,d6
  2192.  divs.l d0,d6
  2193.  move.l d6,a4
  2194.  
  2195.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2196.  move.w (a0)+,d4
  2197.  swap d7
  2198.  clr.w d7
  2199.  swap d4
  2200.  clr.w d4
  2201.  sub.l d4,d7
  2202.  divs.l d0,d7
  2203.  move.l d7,a5
  2204.  
  2205. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  2206. ; swap d7
  2207. ; clr.w d7
  2208.  move.w (a0)+,d5
  2209. ; swap d5
  2210. ; clr.w d5
  2211. ; sub.l d5,d7
  2212. ; divs.l d0,d7
  2213. ; move.l d7,a6
  2214.  
  2215.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2216.  swap d7
  2217.  clr.w d7
  2218.  move.w (a0)+,d6
  2219.  swap d6
  2220.  clr.w d6
  2221.  sub.l d6,d7
  2222.  divs.l d0,d7
  2223.  move.l d7,a3
  2224.  
  2225.  move.l a0,-(a7)
  2226.  move.l d1,-(a7)
  2227.  move.l #TEXTURES,a0
  2228.  move.w TEXTUREADD,d7
  2229.  bge.s .okaddtes
  2230.  and.w #$7fff,d7
  2231.  add.l #65536,a0
  2232. .okaddtes:
  2233.  add.w d7,a0
  2234.  move.w #0,d7
  2235.  
  2236.  move.l RIGHTBRIGHT,a6
  2237.  move.w LEFTBRIGHT,d5
  2238.  swap d5
  2239.  
  2240.  move.l a7,SAVESTACK
  2241.  move.l #SHADOWBUFFER,a7
  2242.  
  2243.  subq #1,d0
  2244.  
  2245. ; d0=xdist
  2246. ; d2=U    a1=DU
  2247. ; d3=V  a4=DV
  2248. ; d4=X  a5=DX
  2249. ; d5=Y  a6=DY
  2250. ; d6=Z  a3=DZ
  2251.  move.w HIGHPOLY,d5
  2252.  
  2253.  moveq #0,d1
  2254.  swap d6
  2255.  move.w d6,d1
  2256.  lsl.w #8,d1
  2257.  swap d4
  2258.  move.b d4,d1
  2259.  swap d4
  2260.  swap d6
  2261.  
  2262.  moveq #0,d7
  2263.  move.b (a7,d1.l),d7
  2264.  cmp.w d7,d5
  2265.  ble INTHELIGHTGOUR
  2266.  bra.s INTHEDARKGOUR
  2267.  
  2268. PENUMBRAGOUR:
  2269.  moveq #0,d1
  2270.  swap d6
  2271.  move.w d6,d1
  2272.  lsl.w #8,d1
  2273.  swap d4
  2274.  move.b d4,d1
  2275.  swap d4
  2276.  swap d6
  2277.  add.l a5,d4
  2278.  add.l a3,d6
  2279.  add.l a6,d5
  2280.  
  2281.  moveq #0,d7
  2282.  move.b (a7,d1.l),d7
  2283.  cmp.w d7,d5
  2284.  ble INTOLIGHTGOUR
  2285.  bra.s INTODARKGOUR
  2286.  
  2287. INTHEDARKGOUR:
  2288.  moveq #0,d1
  2289.  swap d6
  2290.  move.w d6,d1
  2291.  lsl.w #8,d1
  2292.  swap d4
  2293.  move.b d4,d1
  2294.  swap d4
  2295.  swap d6
  2296.  add.l a5,d4
  2297.  add.l a3,d6
  2298.  add.l a6,d5
  2299.  
  2300.  moveq #0,d7
  2301.  move.b (a7,d1.l),d7
  2302.  cmp.w d7,d5
  2303.  ble.s INTOPENUMGOUR
  2304. INTODARKGOUR:
  2305.  move.w #$3c00,d7
  2306.  swap d2
  2307.  move.w d2,d1
  2308.  swap d3
  2309.  move.b d3,d1
  2310.  swap d2
  2311.  swap d3
  2312.  add.l a1,d2
  2313.  add.l a4,d3
  2314.  
  2315.  move.b (a0,d1.w*4),d7
  2316.  bne.s DARKplottt
  2317.  
  2318. .noplottt
  2319.  addq #1,a2
  2320.  dbra d0,INTHEDARKGOUR
  2321.  bra PASTACGOUR
  2322.  
  2323. INTOPENUMGOUR:
  2324.  move.l d5,d7
  2325.  swap d7
  2326.  
  2327.  sub.w #$3c00,d7
  2328.  asr.w #1,d7
  2329.  add.w #$3c00,d7
  2330.  
  2331.  swap d2
  2332.  move.w d2,d1
  2333.  swap d3
  2334.  move.b d3,d1
  2335.  swap d2
  2336.  swap d3
  2337.  add.l a1,d2
  2338.  add.l a4,d3
  2339.  
  2340.  move.b (a0,d1.w*4),d7
  2341.  bne.s PENUMplottt
  2342. .noplottt
  2343.  addq #1,a2
  2344.  dbra d0,PENUMBRAGOUR
  2345.  bra PASTACGOUR
  2346.  
  2347. PENUMplottt
  2348.  move.w d2,d1
  2349.  move.b GOURPAL(pc,d7.w),d1
  2350.  move.b GOURPAL(pc,d7.w),(a2)+
  2351.  dbra d0,PENUMBRAGOUR
  2352.  bra PASTACGOUR
  2353.  
  2354. DARKplottt
  2355.  move.w d2,d1
  2356.  add.w #256,d1
  2357.  move.b GOURPAL(pc,d7.w),d1
  2358.  move.b GOURPAL(pc,d7.w),(a2)+
  2359.  
  2360.  dbra d0,INTHEDARKGOUR
  2361.  bra PASTACGOUR
  2362.  
  2363.  
  2364. INTHELIGHTGOUR:
  2365.  
  2366.  moveq #0,d1
  2367.  swap d6
  2368.  move.w d6,d1
  2369.  lsl.w #8,d1
  2370.  swap d4
  2371.  move.b d4,d1
  2372.  swap d4
  2373.  swap d6
  2374.  add.l a5,d4
  2375.  add.l a3,d6
  2376.  add.l a6,d5
  2377.  
  2378.  moveq #0,d7
  2379.  move.b (a7,d1.l),d7
  2380.  cmp.w d7,d5
  2381.  bgt.s INTOPENUMGOUR
  2382. INTOLIGHTGOUR:
  2383.  move.l d5,d7
  2384.  swap d7
  2385.  swap d2
  2386.  move.w d2,d1
  2387.  swap d3
  2388.  move.b d3,d1
  2389.  swap d2
  2390.  swap d3
  2391.  add.l a1,d2
  2392.  add.l a4,d3
  2393.  
  2394.  move.b (a0,d1.w*4),d7
  2395.  beq.s .noplottt
  2396.  
  2397.  move.w d2,d1
  2398.  move.b GOURPAL(pc,d7.w),d1
  2399.  move.b GOURPAL(pc,d1.w),(a2)+
  2400.  dbra d0,INTHELIGHTGOUR
  2401.  bra PASTACGOUR 
  2402.  
  2403. .noplottt:
  2404.  addq #1,a2
  2405.  dbra d0,INTHELIGHTGOUR
  2406.  bra PASTACGOUR
  2407.  
  2408. GOURPAL: incbin "ab3:includes/shadow.pal"
  2409.  
  2410. PASTACGOUR:
  2411.  
  2412.  move.l SAVESTACK,a7
  2413.  
  2414.  move.l (a7)+,d1
  2415.  move.l (a7)+,a0
  2416.  move.l (a7)+,a2
  2417.  
  2418. .noline:
  2419.  add.w #320,a2
  2420.  
  2421.  swap d1
  2422.  dbra d1,DOAHORLINEGOUR
  2423.  
  2424.  bra NOPOLYGON
  2425.  
  2426.  
  2427. ********************************************
  2428. ***********************************
  2429. ***************************
  2430. *******************
  2431. DORIGHTLEFT:
  2432.  
  2433.  add.w d0,a2
  2434.  
  2435.  add.l d7,d2
  2436.  neg.l d7
  2437.  
  2438.  add.w d5,d4
  2439.  neg.w d5
  2440.  
  2441.  move.w d4,d2
  2442.  move.w d5,d7
  2443.  move.l d7,a1
  2444.   
  2445.   
  2446.  exg d3,d6 
  2447.  clr.w d3
  2448.  clr.w d6
  2449.  sub.l d3,d6
  2450.  divs.l d0,d6
  2451.  move.l d6,a4
  2452.  
  2453.  move.w LEFTBRIGHT,d6
  2454.  move.w RIGHTBRIGHT,d7
  2455.  add.w d7,d6
  2456.  neg.w d6
  2457.  move.w d6,LEFTBRIGHT
  2458.  move.w d7,RIGHTBRIGHT
  2459.  
  2460.  move.w RIGHTUVS-LEFTUVS(a0),d4
  2461.  move.w (a0)+,d7
  2462.  swap d7
  2463.  clr.w d7
  2464.  swap d4
  2465.  clr.w d4
  2466.  sub.l d4,d7
  2467.  divs.l d0,d7
  2468.  move.l d7,a5
  2469.  
  2470.  move.w RIGHTUVS-LEFTUVS(a0),d5
  2471.  swap d5
  2472.  clr.w d5
  2473.  move.w (a0)+,d7
  2474.  swap d7
  2475.  clr.w d7
  2476.  sub.l d5,d7
  2477.  divs.l d0,d7
  2478.  move.l d7,a6
  2479.  
  2480.  move.w RIGHTUVS-LEFTUVS(a0),d6
  2481.  swap d6
  2482.  clr.w d6
  2483.  move.w (a0)+,d7
  2484.  swap d7
  2485.  clr.w d7
  2486.  sub.l d6,d7
  2487.  divs.l d0,d7
  2488.  swap d7
  2489.  move.l d7,a3
  2490.  
  2491.  move.l a0,-(a7)
  2492.  move.l d1,-(a7)
  2493.  move.l #TEXTURES,a0
  2494.  move.w TEXTUREADD,d7
  2495.  bge.s .okaddtes
  2496.  and.w #$7fff,d7
  2497.  add.l #65536,a0
  2498. .okaddtes:
  2499.  add.w d7,a0
  2500.  move.w #0,d7
  2501.  
  2502.  move.l RIGHTBRIGHT,a6
  2503.  move.w LEFTBRIGHT,d5
  2504.  swap d5
  2505.  
  2506.  move.l a7,SAVESTACK
  2507.  move.l #SHADOWBUFFER,a7
  2508.  
  2509.  subq #1,d0
  2510.  
  2511. ; d0=xdist
  2512. ; d2=U    a1=DU
  2513. ; d3=V  a4=DV
  2514. ; d4=X  a5=DX
  2515. ; d5=Y  a6=DY
  2516. ; d6=Z  a3=DZ
  2517.  move.w HIGHPOLY,d5
  2518.  
  2519.  moveq #0,d1
  2520.  swap d6
  2521.  move.w d6,d1
  2522.  lsl.w #8,d1
  2523.  swap d4
  2524.  move.b d4,d1
  2525.  swap d4
  2526.  swap d6
  2527.  
  2528.  moveq #0,d7
  2529.  move.b (a7,d1.l),d7
  2530.  cmp.w d7,d5
  2531.  ble INTHELIGHTGOURRL
  2532.  bra.s INTHEDARKGOURRL
  2533.  
  2534. PENUMBRAGOURRL:
  2535.  moveq #0,d1
  2536.  swap d6
  2537.  move.w d6,d1
  2538.  lsl.w #8,d1
  2539.  swap d4
  2540.  move.b d4,d1
  2541.  swap d4
  2542.  swap d6
  2543.  add.l a5,d4
  2544.  add.l a3,d6
  2545.  add.l a6,d5
  2546.  
  2547.  moveq #0,d7
  2548.  move.b (a7,d1.l),d7
  2549.  cmp.w d7,d5
  2550.  ble INTOLIGHTGOURRL
  2551.  bra.s INTODARKGOURRL
  2552.  
  2553.  
  2554. INTHEDARKGOURRL:
  2555.  moveq #0,d1
  2556.  swap d6
  2557.  move.w d6,d1
  2558.  lsl.w #8,d1
  2559.  swap d4
  2560.  move.b d4,d1
  2561.  swap d4
  2562.  swap d6
  2563.  add.l a5,d4
  2564.  add.l a3,d6
  2565.  add.l a6,d5
  2566.  
  2567.  moveq #0,d7
  2568.  move.b (a7,d1.l),d7
  2569.  cmp.w d7,d5
  2570.  ble.s INTOPENUMGOURRL
  2571. INTODARKGOURRL:
  2572.  move.w #$3c00,d7
  2573.  swap d2
  2574.  move.w d2,d1
  2575.  swap d3
  2576.  move.b d3,d1
  2577.  swap d2
  2578.  swap d3
  2579.  add.l a1,d2
  2580.  add.l a4,d3
  2581.  
  2582.  move.b (a0,d1.w*4),d7
  2583.  bne.s DARKplotttRL
  2584.  
  2585. .noplottt
  2586.  subq #1,a2
  2587.  dbra d0,INTHEDARKGOURRL
  2588.  bra PASTACGOUR
  2589.  
  2590. INTOPENUMGOURRL:
  2591.  move.l d5,d7
  2592.  swap d7
  2593.  
  2594.  sub.w #$3c00,d7
  2595.  asr.w #1,d7
  2596.  add.w #$3c00,d7
  2597.  
  2598.  swap d2
  2599.  move.w d2,d1
  2600.  swap d3
  2601.  move.b d3,d1
  2602.  swap d2
  2603.  swap d3
  2604.  add.l a1,d2
  2605.  add.l a4,d3
  2606.  
  2607.  move.b (a0,d1.w*4),d7
  2608.  bne.s PENUMplotttRL
  2609. .noplottt
  2610.  subq #1,a2
  2611.  dbra d0,PENUMBRAGOURRL
  2612.  bra PASTACGOUR
  2613.  
  2614. PENUMplotttRL
  2615.  move.w d2,d1
  2616.  move.b GOURPALRL(pc,d7.w),d1
  2617.  move.b GOURPALRL(pc,d1.w),-(a2)
  2618.  dbra d0,PENUMBRAGOUR
  2619.  bra PASTACGOUR
  2620.  
  2621. DARKplotttRL
  2622.  move.w d2,d1
  2623.  add.w #256,d1
  2624.  move.b GOURPALRL(pc,d7.w),d1
  2625.  move.b GOURPALRL(pc,d1.w),-(a2)
  2626.  
  2627.  dbra d0,INTHEDARKGOURRL
  2628.  bra PASTACGOUR
  2629.  
  2630.  
  2631. INTHELIGHTGOURRL:
  2632.  
  2633.  moveq #0,d1
  2634.  swap d6
  2635.  move.w d6,d1
  2636.  lsl.w #8,d1
  2637.  swap d4
  2638.  move.b d4,d1
  2639.  swap d4
  2640.  swap d6
  2641.  add.l a5,d4
  2642.  add.l a3,d6
  2643.  add.l a6,d5
  2644.  
  2645.  moveq #0,d7
  2646.  move.b (a7,d1.l),d7
  2647.  cmp.w d7,d5
  2648.  bgt.s INTOPENUMGOURRL
  2649. INTOLIGHTGOURRL:
  2650.  move.l d5,d7
  2651.  swap d7
  2652.  swap d2
  2653.  move.w d2,d1
  2654.  swap d3
  2655.  move.b d3,d1
  2656.  swap d2
  2657.  swap d3
  2658.  add.l a1,d2
  2659.  add.l a4,d3
  2660.  
  2661.  move.b (a0,d1.w*4),d7
  2662.  beq.s .noplottt
  2663.  
  2664.  move.w d2,d1
  2665.  move.b GOURPALRL(pc,d7.w),d1
  2666.  move.b GOURPALRL(pc,d1.w),-(a2)
  2667.  dbra d0,INTHELIGHTGOURRL
  2668.  bra PASTACGOUR 
  2669.  
  2670. .noplottt:
  2671.  subq #1,a2
  2672.  dbra d0,INTHELIGHTGOURRL
  2673.  bra PASTACGOUR
  2674.  
  2675. GOURPALRL: incbin "ab3:includes/shadow.pal"
  2676.  
  2677.  
  2678. TOPPTR: dc.l 0
  2679. TOPPTNUM: dc.w 0
  2680. BOTPTNUM: dc.w 0
  2681. LEFTBRIGHT: dc.w 0
  2682. RIGHTBRIGHT: dc.l 0
  2683. LEFTSPEC: dc.w 0
  2684. RIGHTSPEC: dc.w 0
  2685.  
  2686. ***********************************************
  2687.     
  2688. SIMPLECALCLINE:
  2689.  move.l #ONSCREENPTS,a1
  2690.  
  2691.  move.w 2(a1,d0.w*4),d2        ;fy
  2692.  move.w 2(a1,d1.w*4),d7        ;sy
  2693.  
  2694.  move.l #RIGHTUVS,a3
  2695.  asr.w #2,d2
  2696.  asr.w #2,d7
  2697.  cmp.w d2,d7 
  2698.  beq .noline
  2699.  
  2700.  bgt.s .lineonright
  2701. .lineonleft:
  2702.  move.l #LEFTUVS,a3
  2703.  exg d0,d1
  2704.  exg d2,d7
  2705.  
  2706. .lineonright:
  2707.  move.w d0,TOPPTNUM
  2708.  move.w d1,BOTPTNUM
  2709.  
  2710.  sub.w d2,d7
  2711.  asl.w #4,d2
  2712.  add.w d2,a3
  2713.  move.l a3,TOPPTR
  2714.  
  2715.  move.w d7,YDIFF
  2716.  
  2717.  move.w (a1,d0.w*4),d3        ;fx
  2718.  move.w (a1,d1.w*4),d7        ;sx
  2719.  
  2720.  sub.w d3,d7
  2721.  swap d3
  2722.  swap d7
  2723.  clr.w d3
  2724.  clr.w d7
  2725.  divs.l YDIFF-2,d7
  2726.  move.l d7,a0    ; dx
  2727.  
  2728.  move.l #UVCOORDS,a2
  2729.  move.l #SHADOWPTS,a1
  2730.  
  2731.  move.w (a2,d0.w*4),d4
  2732.  move.w 2(a2,d0.w*4),d5
  2733.  move.w (a2,d1.w*4),d6
  2734.  move.w 2(a2,d1.w*4),d7
  2735.  
  2736.  sub.w d4,d6
  2737.  sub.w d5,d7
  2738.  swap d4
  2739.  swap d5
  2740.  clr.w d4
  2741.  clr.w d5
  2742.  swap d6
  2743.  swap d7
  2744.  clr.w d6
  2745.  clr.w d7
  2746.  
  2747.  divs.l YDIFF-2,d6
  2748.  divs.l YDIFF-2,d7
  2749.  
  2750.  move.l d6,a4
  2751.  move.l d7,a5
  2752.  
  2753.  muls #10,d0
  2754.  muls #10,d1
  2755.  move.l (a1,d0.w),d6
  2756.  
  2757.  move.l (a1,d1.w),d7
  2758.  asl.l #5,d6
  2759.  asl.l #5,d7
  2760.  sub.l d6,d7
  2761.  divs.l YDIFF-2,d7
  2762.  move.l d7,a2
  2763.  move.l d6,a6
  2764.  
  2765.  move.l 4(a1,d0.w),d6
  2766.  move.l 4(a1,d1.w),d7
  2767.  asl.l #5,d6
  2768.  asl.l #5,d7
  2769.  sub.l d6,d7
  2770.  divs.l YDIFF-2,d7
  2771.  exg d7,a6
  2772.  exg d7,d6
  2773.  
  2774.  move.w 8(a1,d0.w),d0
  2775.  move.w 8(a1,d1.w),d1
  2776.  swap d0
  2777.  swap d1
  2778.  clr.w d0
  2779.  clr.w d1
  2780.  asr.l #2,d0
  2781.  asr.l #2,d1
  2782.  sub.l d0,d1
  2783.  divs.l YDIFF-2,d1
  2784.  move.l d1,a1
  2785.  move.l YDIFF-2,d1
  2786.  subq #1,d1
  2787.  
  2788. ; d3=sx a0=dsx
  2789. ; d4=u a4=du
  2790. ; d5=v a5=dv
  2791. ; d6=x a2=dx
  2792. ; d7=y a6=dy
  2793. ; d0=z a1=dz
  2794. ; d1=dsy
  2795.  
  2796.  
  2797.  add.l #128*65536,d6
  2798.  add.l #128*65536,d7
  2799.  add.l #128*65536,d0
  2800.  
  2801. .PUTINLINE:
  2802.  swap d3
  2803.  move.w d3,(a3)+
  2804.  swap d3
  2805.  add.l a0,d3
  2806.  move.l d4,(a3)+
  2807.  add.l a4,d4
  2808.  move.l d5,(a3)+
  2809.  swap d6
  2810.  add.l a5,d5
  2811.  move.w d6,(a3)+
  2812.  swap d6
  2813.  swap d7
  2814.  add.l a2,d6
  2815.  move.w d7,(a3)+
  2816.  swap d7
  2817.  swap d0
  2818.  add.l a6,d7
  2819.  move.w d0,(a3)+
  2820.  swap d0
  2821.  add.l a1,d0
  2822.  dbra d1,.PUTINLINE
  2823.  
  2824.  tst.b Gouraud
  2825.  beq .noline
  2826.  
  2827.  move.w TOPPTNUM,d0
  2828.  move.w BOTPTNUM,d1
  2829.  move.l TOPPTR,a3
  2830.  moveq #0,d4
  2831.  move.w YDIFF,d4
  2832.  
  2833.  move.l #SPECBRIGHTS,a2
  2834.  move.w (a2,d0.w*2),d2
  2835.  move.w (a2,d1.w*2),d3
  2836.  move.l #NORMBRIGHTS,a2
  2837.  move.w (a2,d0.w*2),d0
  2838.  move.w (a2,d1.w*2),d1
  2839.  
  2840.  sub.w d0,d1
  2841.  swap d1
  2842.  swap d0
  2843.  clr.w d0
  2844.  clr.w d1
  2845.  divs.l d4,d1
  2846.  sub.w d2,d3
  2847.  swap d2
  2848.  swap d3
  2849.  clr.w d2
  2850.  clr.w d3
  2851.  divs.l d4,d3
  2852.  
  2853.  subq #1,d4
  2854.  
  2855. .STICKINGOUR:
  2856.  swap d0
  2857.  move.w d0,4(a3)
  2858.  swap d0
  2859.  add.l d1,d0
  2860.  swap d2
  2861.  move.w d2,8(a3)
  2862.  adda.w #16,a3
  2863.  swap d2
  2864.  add.l d3,d2
  2865.  dbra d4,.STICKINGOUR
  2866.  
  2867. .noline:
  2868.  rts
  2869.  
  2870.  
  2871. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2872.  
  2873.  
  2874.  
  2875.  
  2876. ************************************************
  2877. ************************************************
  2878. ************************************************
  2879. ************************************************
  2880. ************************************************
  2881. ************************************************
  2882. ************************************************
  2883. ************************************************
  2884. ************************************************
  2885. ************************************************
  2886. ************************************************
  2887. ************************************************
  2888. ************************************************
  2889. ************************************************
  2890. ************************************************
  2891. ************************************************
  2892. ************************************************
  2893.  
  2894.  move.w d3,TOPLINE
  2895.  move.w d4,BOTLINE
  2896.  
  2897.  
  2898.  
  2899.  
  2900. *********************************************
  2901.  
  2902. CALCSQROOT:
  2903.  tst.l d2
  2904.  beq .oksqr
  2905.  
  2906.  movem.l d0/d1/d3-d7/a0-a6,-(a7)
  2907.  
  2908.  move.w #31,d0
  2909. .findhigh
  2910.  btst d0,d2
  2911.  bne .foundhigh
  2912.  dbra d0,.findhigh
  2913. .foundhigh
  2914.  asr.w #1,d0
  2915.  clr.l d3
  2916.  bset d0,d3
  2917.  move.l d3,d0
  2918.  
  2919.  move.w d0,d1
  2920.  muls d1,d1    ; x*x
  2921.  sub.l d2,d1    ; x*x-a
  2922.  asr.l #1,d1    ; (x*x-a)/2
  2923.  divs d0,d1    ; (x*x-a)/2x
  2924.  sub.w d1,d0    ; second approx
  2925.  bgt .stillnot0
  2926.  move.w #1,d0
  2927. .stillnot0
  2928.  
  2929.  move.w d0,d1
  2930.  muls d1,d1
  2931.  sub.l d2,d1
  2932.  asr.l #1,d1
  2933.  divs d0,d1
  2934.  sub.w d1,d0    ; second approx
  2935.  bgt .stillnot02
  2936.  move.w #1,d0
  2937. .stillnot02
  2938.  
  2939.  move.w d0,d1
  2940.  muls d1,d1
  2941.  sub.l d2,d1
  2942.  asr.l #1,d1
  2943.  divs d0,d1
  2944.  sub.w d1,d0    ; second approx
  2945.  bgt .stillnot03
  2946.  move.w #1,d0
  2947. .stillnot03
  2948.  
  2949.  move.w d0,d2
  2950.  ext.l d2
  2951.  
  2952.  movem.l (a7)+,d0/d1/d3-d7/a0-a6
  2953.  
  2954. .oksqr
  2955.  rts
  2956.  
  2957.  
  2958. **********************************************
  2959. **********************************************
  2960. **********************************************
  2961. **********************************************
  2962. **********************************************
  2963. **********************    ************************
  2964. **********************************************
  2965. **********************************************
  2966. **********************************************
  2967. **********************************************
  2968. **********************************************
  2969. **********************************************
  2970. **********************************************
  2971. **********************************************
  2972. **********************************************
  2973. **********************************************
  2974. **********************************************
  2975. **********************************************
  2976. **********************************************
  2977.  
  2978. TOPLINE: dc.w 0
  2979. BOTLINE: dc.w 0
  2980.  
  2981.  
  2982.  
  2983. **********************************************
  2984. **********************************************
  2985. **********************************************
  2986. **********************************************
  2987. **********************************************
  2988. **********************************************
  2989. **********************************************
  2990. **********************************************
  2991. **********************************************
  2992. **********************************************
  2993. **********************************************
  2994. **********************************************
  2995. **********************************************
  2996. **********************************************
  2997. **********************************************
  2998. **********************************************
  2999. **********************************************
  3000. **********************************************
  3001. **********************************************
  3002.     
  3003.  
  3004.     
  3005.  dc.w 0
  3006. YDIFF: dc.w 0
  3007.  
  3008. SPINAROUND: dc.w 0    
  3009. XCOS: dc.w 0
  3010. YCOS: dc.w 0
  3011. XSIN: dc.w 0
  3012. YSIN: dc.w 0
  3013. XCOS3: dc.w 0
  3014. YCOS3: dc.w 0
  3015. XSIN3: dc.w 0
  3016. YSIN3: dc.w 0
  3017. XCOS2: dc.w 0
  3018. YCOS2: dc.w 0
  3019. XSIN2: dc.w 0
  3020. YSIN2: dc.w 0
  3021. XADD: dc.l 0
  3022. YADD: dc.l 0
  3023. ZADD: dc.l 0
  3024. XOFF: dc.w 0
  3025. YOFF: dc.w 0
  3026. OLDXM: dc.w 0
  3027. OLDYM: dc.w 0
  3028.  
  3029.  
  3030.  
  3031. TEXTUREADD: dc.w 0
  3032.  
  3033.  
  3034. **********************************************************
  3035.  
  3036. UVCOORDS: ds.l 250
  3037. ROTATEDPTS: ds.l 250*4
  3038. SHADOWPTS: ds.l 250*4
  3039. ONSCREENPTS: ds.l 250
  3040.  
  3041. ZOFF: dc.w 768
  3042.  
  3043. LEFTRIGHT: ds.l 256
  3044.  
  3045. POLYGONDATA:
  3046.  incbin "ab3:vectobj/testcube"
  3047.  
  3048. ****************************
  3049.  
  3050.  
  3051. SINETABLE:
  3052.  incbin "ab3:includes/bigsine"
  3053.  
  3054.  
  3055. YANG: dc.w 0
  3056. XANG: dc.w 0
  3057.  
  3058.  
  3059. xmouse: dc.w 0
  3060. ymouse: dc.w 0
  3061.  
  3062. spleen: dc.w 0
  3063. lastspleen: dc.w 0
  3064.  
  3065. COPIEDPAL:
  3066.  dc.w 256,0
  3067.  ds.l 3*256
  3068.  ds.l 10
  3069.  
  3070. SHADOWBUFFER: ds.l 65536/4
  3071.  
  3072. PALETTEBIT:
  3073. ; incbin "256palette"
  3074. ; dc.w $ffff,$fffe
  3075.  
  3076.  incbin "ab3:includes/256pal"
  3077.  
  3078.  include "ab3:source_4000/chunky.s"
  3079.  
  3080. willy: ds.w 48
  3081.  
  3082.  
  3083. PALS:
  3084.  ds.l 2*49
  3085.  
  3086. pregour: dc.b 0
  3087. Gouraud: dc.b 0
  3088.  
  3089. PointAngPtr: dc.l 0
  3090. FRAMENUM: dc.w 0
  3091. PolyAngPtr: dc.l 0
  3092. PtsPtr: dc.l 0
  3093. LinesPtr: dc.l 0
  3094. POINTER_TO_POINTERS: dc.l 0
  3095. FRAME: dc.w 4
  3096. FLIBBLE: dc.w 0
  3097. START_OF_OBJECT: dc.l 0
  3098. num_points: dc.w 0
  3099. num_frames: dc.w 0
  3100. SORTIT: dc.w 0
  3101. PartBuffer: ds.l 2*32
  3102. endparttab:
  3103.  
  3104. x1: dc.w 0
  3105. y1: dc.w 0
  3106. z1: dc.w 0
  3107. x2: dc.w 0
  3108. y2: dc.w 0
  3109. z2: dc.w 0
  3110. x2b: dc.w 0
  3111. y2b: dc.w 0
  3112. z2b: dc.w 0
  3113.  
  3114. x3: dc.w 0
  3115. y3: dc.w 0
  3116. z3: dc.w 0
  3117.  
  3118. l1: dc.w 0
  3119. l2: dc.w 0
  3120.  
  3121. OBJONOFF: dc.l 0
  3122.  
  3123. SAVEHIGHS: ds.w 30
  3124.  
  3125. FASTBUFFER:
  3126.  dc.l fasty
  3127.  
  3128. fasty: ds.b 320*256
  3129.  
  3130. NORMBRIGHTS: ds.w 250
  3131.  
  3132. SPECBRIGHTS:
  3133.  dcb.l 100,31
  3134.  
  3135. ENDNORM:
  3136.  
  3137. LEFTUVS: ds.w 8*256
  3138. RIGHTUVS: ds.w 8*256
  3139.  
  3140. NORMVECTS: ds.w 3*250
  3141.  
  3142. ;WORLD: incbin "ab3:includes/world"
  3143.  
  3144. ;TWEEN: incbin "ab3:includes/tweenbrightfile"
  3145.  
  3146. TEXTURES: incbin "ab3:includes/newtexturemaps"
  3147.  
  3148. NEBBIE: incbin "work:temp/nebbieroar"
  3149.     ds.l (192/4)*16
  3150.  
  3151.  SECTION BGDROP,code_c
  3152.  
  3153. RAWSCRN:
  3154.  ds.l 2560*8
  3155.